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ABOUT THIS MANUAL 



This manual describes the CYBIL programming language designed for use with CDCNET on the 
Motorola MC68000 microprocessor. CDCNET is used with the CDC® Network Operating System (NOS) 
Version 2, which operates on CDC CYBER 170 Computer Systems, CDC CYBER 70 Computer Systems 
Models 71, 72, 73, and 74; and CDC 6000 Computer Systems. 

AUDIENCE 

This manual is written as a reference for CYBIL programmers. It assumes that you understand 
CDCNET concepts as presented in the CDCNET Architectural Overview. 

ORGANIZATION 

This manual is organized by topic, based on elements of the CYBIL language. The first 
chapter introduces the basic elements of the language and refers you to the chapter in which 
each is further described. 

CONVENTIONS 

Within the formats for declarations, type specifications, and statements shown in this 
manual, uppercase letters represent reserved words; they must appear exactly as shown. 
Lowercase letters represent names and values that you supply. 

Optional parameters are enclosed by braces, as in: 

{ PACKED } 

If the parameter is optional and can be repeated any number of times, it is also followed by 
several periods, as in: 

{ name j . . . 

For example, the notation digit means zero digits or one digit can appear; {digit!... means 
zero, one, or more digits can appear. Braces also indicate that the enclosed parameters and 
reserved words are used together. For example, 

! REP number OF | 

is considered a single parameter. Except for the braces and periods indicating repetition, 
all other symbols shown in a format must be included. 

Numbers are assumed to be decimal unless otherwise noted. 
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INTRODUCTION 



A CYBIL program consists essentially of two kinds of elements: declarations and statements. 
Declarations describe the data to be used in the program. Statements describe the actions to 
be performed on the data. 

Declarations and statements are made up of predefined reserved words and user-defined names 
and values. The way you form these elements is described in chapter 2, as is the general 
structure for forming a CYBIL program. 

Data can be either constant or variable. You can use the constant value itself or give it a 
name using the constant declaration (CONST). Variables are named, initialized, and given 
certain characteristics with the variable declaration (VAR). One of the characteristics of a 
variable is its type, for example, integer or character. You can use CYBIL's predefined 
types or define your own types. To define a new type or redefine an existing type with a new 
name, you use the type declaration (TYPE). Once you have defined a type, CYBIL will treat it 
as a standard data type; you can specify your new type name as a valid type in a variable 
declaration and CYBIL will perform standard type checking on it. You can also declare where 
you want certain variables to reside by defining an area called a section. This is done with 
the SECTION declaration. All of these data-related declarations are described in chapter 3. 

Many standard types are available, including integers, characters, and boolean values, to 
name a few. In addition, you can use combinations of the standard types to define your own 
data types, for example, a record that contains several fields. The next few paragraphs 
summarize the types that are predefined by CYBIL. They are described in detail in chapter 4. 

Among the basic types are scalar types, that is, those that have a specific order. Besides 
integer, character, and boolean values, you can declare an ordinal type in which you define 
the elements and their order. You can also specify a subrange of any of the scalar types by 
giving a lower and upper bound. A cell, which represents the smallest addressable unit of 
memory, can be specified as a type. A pointer is a type that points to a variable, allowing 
you to access the variable by location rather than by name. These are the basic types: 
scalar, cell, and pointer. With these basic types you can construct the structured types: 
strings, arrays, records, and sets. 

A string is a combination of characters. You can reference a portion of a string (called a 
substring) or a single character within a string. An array is a structure that contains 
components all of the same type. The components of an array have a specific order and each 
one can be referenced individually. A record is a structure that contains a fixed number of 
fields, that may be of different types. Each field has a unique name within the record and 
can be referenced individually. You can also declare a variant record that has several 
possible variations (variants). The current value of a field common to all variants, or the 
latest assignment to a specific variant field determines which of the variants should be used 
for each execution. A set is a structure that contains elements of a single type. Yet 
unlike an array, elements in a set have no order and individual elements cannot be 
referenced. A set can be operated on only as a whole. 
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Storage types are structures to which variables can be added, referenced, and deleted under 
explicit program control using a set of storage management statements. The two storage types 
are sequences and heaps. 

All of the types mentioned above are considered fixed types; that is, there is a definite 
size associated with each one when it is declared. If you want to delay specifying a size 
until execution time, you can declare it as an adaptable type. Then, sometime during 
execution, you assign a fixed size or value to the type. A string, array, record, sequence, 
or heap can be adaptable. 

All of these types are described in chapter A. 

Statements define the actions to be performed on the data you've defined. The assignment 
statement changes the value of a variable. Structured statements contain and control the 
execution of a list of statements. The BEGIN statement unconditionally executes a statement 
list. The WHILE, FOR, and REPEAT statements control repetitive executions of a statement 
list. 

Control statements control the flow of execution. The IF and CASE statements execute one of 
a set of statement lists based on the evaluation of a given expression or the value of a 
specific variable. CYCLE, EXIT, and RETURN statements stop execution of a statement list and 
transfer control to another place in the program. 

Storage management statements allocate, access, and release variables in sequences (using the 
RESET and NEXT statements), heaps (using the RESET, ALLOCATE, and FREE statements), and the 
run-time stack (using the PUSH statement). 

All of the preceding statements are- described in detail in chapter 5, along with the operands 
and operators that can be used in expressions within statements and declarations. 

Statements can appear within a program (as described in chapter 2), a function, or a 
procedure. 

A function is a list of statements, optionally preceded by a list of declarations. It is 
known by a unique name and can be called by that name from elsewhere in the program. A 
function performs some calculation and returns a value that takes the place of the function 
reference. There are many standard functions defined in CYBIL and you can also create your 
own. Standard functions and rules for forming your own functions are described in chapter 6. 

A procedure, like a function, is a list of statements, optionally preceded by a list of ^ A 

declarations. It also is known by a unique name and can be called by that name from 
elsewhere in the program. A procedure performs specific operations and may or may not return 
values to existing variables. You can use the standard procedures and also define your own. 
Chapter 7 describes the standard procedures and rules for forming your own procedures. 

Chapter 8 describes directives that are available at compilation time to specify listing 
options, run-time options, the layout of the source text and resulting object listing, and 
what specific portions of the source text to compile. 

In summary, chapters 2 through 7 describe the elements within a CYBIL program. Chapter 8 
describes the directives that control how the program is actually compiled. 
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PROGRAM STRUCTURE 









This chapter describes how to form the individual elements used within a program and how to 
structure the program itself. 

ELEMENTS WITHIN A PROGRAM 

VALID CHARACTERS 

The characters that can be used within a program are those in the ASCII character set that 
have graphic representations (that is, can be printed). This character set is included in 
appendix B. It contains uppercase and lowercase letters. In names that you define, you can 
use uppercase and lowercase letters interchangeably. For example, the name LOOP_COUNT is 
equivalent to the name loop_count. 

CYBIL-DEFINED ELEMENTS 

CYBIL has predefined meanings for many words and symbols. You cannot redefine or use these 
words and symbols for other purposes. 

A complete list of CYBIL reserved words is given in appendix C. In the formats for 
declarations, type specifications, and statements shown in this manual, reserved words are 
shown in uppercase letters. 

The following list includes the reserved symbols and gives a brief description of the purpose 
of each. They are discussed in more detail throughout this manual. 



Symbol 



Purpose 



+, -, *, /, =, <, <=,>, >-, <>, :=, (, ) These symbols are primarily operators used in 

expressions. They are discussed in chapter 5. 

; The semicolon separates individual declarations 

and statements. 

: The colon is used in declarations as described in 

chapter 3. 

, The comma separates repeated parameters or other 

elements. 

A single period indicates a reference to a field 
within a record as described in chapter 4. 

.. Two consecutive periods indicate a subrange as 

described in chapter 4. 
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? or ?? 



Purpose 

The circumflex indicates a pointer reference as 
described in chapter 4. 

Apostrophes delimit strings. 

Brackets enclose array subscripts, indefinite 
value constructors, and set value constructors as 
described in chapter 4. 

Braces delimit comments. (Within the formats 
shown in this manual, they are also used to 
enclose optional parameters. ) 

A single question mark or a pair of consecutive 
question marks indicate compile-time statements 
and directives as described in chapter 8. 
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USER-DEFINED ELEMENTS 



Names 

You define the names for elements, such as constants, variables, types, procedures, and so 
on, that you use within a program. A name: 

• Can be from 1 through 31 characters in length. 

• Can consist of letters, digits, and the special characters # (number sign), @ 
(commercial at sign), _ (underline), and $ (dollar sign). 

• Must begin with a letter. (There is an exception to this rule for system-defined 
functions and procedures that begin with the # or $ character. ) 

• Cannot contain spaces. 

In the formats included in this manual, names that you supply are shown in lowercase 
letters. Within a program, however, there is no distinction between uppercase and lowercase 
letters. The name my_file is identical to the name My_File. 

There is considerable flexibility in forming names, so you should make them as descriptive as 
possible to promote readability and maintainability of the program. For example, 
LAST FILE ACCESSED is more obvious than LASTFIL. 









K 



+ The system often uses $ in its predefined names. To keep from matching a system reserved 
name, avoid using $ in the names you define. 
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Examples : 

Valid Names Invalid Names 

SUM ARRAY 

REGISTER^ FILES&POSITIONS 

POINTER TABLE 2ND 



The valid names need no explanation. Among the invalid names, ARRAY cannot be used because 
it is a reserved word; FILES&POSITIONS contains an invalid character (the ampersand); and 2ND 



does not begin with a letter. 

Constants 

A constant is a fixed value. It is known at compilation time and does not change throughout 
the execution of a program. It can be an integer, character, boolean, ordinal, pointer, or 
string. 

Integer constants can be binary, octal, decimal, or hexadecimal. The base is specified by 
enclosing the radix in parentheses following the integer, as follows: 

integer (radix) 

Examples are 1011(2) and 19A(16). If the radix is omitted, the integer is assumed to be 
decimal. Integer constants must start with a digit; therefore, zero must precede any 
hexadecimal constant that would otherwise begin with a letter, for example, 0FF(16). 
Negative integer constants must be preceded by a minus sign. Positive integer constants can 
be preceded by a plus sign but need not be. 

Integer constants range in value from -(2 32 ) through 2 32 -l; that is, -80000000(16) 
through 7FFFFFFF(16). 

A character constant can be any single character in the ASCII character set. The character 
is enclosed in apostrophes in the following form: 

'character' 

Examples are 'A' and '?'. The apostrophe character itself is specified by a pair of 
apostrophes. 

A boolean constant can be either FALSE or TRUE, each having its usual meaning. 

An ordinal constant is an element of an ordinal type that you have defined. For further 
information, refer to Ordinal under Scalar Types in chapter 4. 

The pointer constant is NIL. It indicates an unassigned pointer. Internally, CDCNET CYBIL 
represents NIL as 00000000(16). NIL can be assigned to a pointer of any type. 
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• The only functions allowed as factors in constant expressions are the $INTEGER, 
$CHAR, SUCC, and PRED functions with constant expressions as arguments. 

• Substring references are not allowed. 
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String constants consist of one or more characters enclosed in apostrophes in the following 

form: 

'string' 

An example is 'USER1234', a string of eight characters. An apostrophe in a string constant 
is specified by a pair of apostrophes, for example, 'D0N"T'. 

String constants can be concatenated with the reserved word CAT, as in: 

'characters_l' CAT * characters_2 ' 

The result is the string 'characters_lcharacters_2'. The CAT operation cannot be used with 
string variables. 

A string constant can be empty, that is, a null string; for example, /'"A 

str :■ "; x v.>™^ 

assigns a null string to the string constant STR. 

You cannot reference parts (substrings) of string constants. 

Constant Expressions 

Expressions are combinations of operands and operators that are evaluated to find scalar or 
string type values. In a constant expression, the operands must be constants, names of f~ ^\ 

constants (that you declare using the CONST declaration described in chapter 3), or other I 

constant expressions within parentheses. Computation is done at compile time and the X=* '-' 

resulting value used in the same way a constant is used. 

The general rules for forming and evaluating expressions are described under Expressions in 
chapter 5. These rules apply to constant expressions with the following exceptions: 

• Constant expressions must be simple expressions; terms involving relational operators 
must be delimited with parentheses. 
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SYNTAX 

The exact syntax of the language is shown in the formats of individual declarations and 
statements described in the remainder of this manual. The following paragraphs discuss 
general syntax rules. 

Spaces 

Spaces can be used freely in programs with the following exceptions: 

• Names and reserved words cannot contain embedded spaces. Normally, constants cannot 
contain spaces either, but a character constant or string constant can. 

• A name, reserved word, or constant cannot be split over two lines; it must appear 
completely on one line. 

• Names, reserved words, and constants must be separated from each other by at least 
one space, or one of the other delimiters such as a parenthesis or comma. 

For further information, refer to Spacing later in this chapter. 
Comments 



Comments can be used in a program anywhere that spaces can be used (except in string 
constants). They are printed in the source listing but otherwise are ignored by the compiler. 

A comment is enclosed in left and right braces: { ) . It can contain any character except the 
$ right brace (I). To extend a comment over several lines, repeat the left brace (!) at the 

beginning of each line. If the right brace is omitted at the end of the comment, the 
compiler ends it automatically at the end of the line. 

Example: 

j this comment 
{appears on 
{several lines.) 

Within this manual, the formats for declarations, type specifications, and statements use 
braces to indicate an optional parameter. 
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Punctuation 

A semicolon separates individual declarations and statements. It must be included at the end 
of almost every declaration and statement. The single exception is MODEND which can, but 
need not, end with a semicolon if it is the last occurrence of MODEND in a compilation. 
Punctuation for specific declarations and statements is shown in the formats in the following 
chapters. 

Two consecutive semicolons indicate an empty statement, which the compiler ignores. Spacing 
between the semicolons in this case is unimportant. 

Spacing 



Declarations and statements can start in any column. In this manual, indentations are used 

in examples to improve readability. It is recommended that similar conventions be used in ^ 

your programs to aid in debugging and documentation for yourself and other users. j 

The LEFT and RIGHT directives, described in chapter 8, can be used at compilation time to 
specify the left and right margins of the source text. All source text outside of those 
margins is then ignored. A warning diagnostic is issued for every line that exceeds the 
specified right margin. 

A name, reserved word, or constant cannot be split over two lines; each must appear 
completely on one line. 



STRUCTURE OF A PROGRAM 

MODULE STRUCTURE 

The basic unit that can be compiled is a module and, optionally, compile-time statements and 
directives. A module can, but need not, contain a program. The general structure of a 
module is: 

MODULE module_name; 
declarations 
PROGRAM program_name; 
declarations 
statements 
PROCEND program_name; 
MODEND module__name; 

Declarations can be constant, type, variable, section, function, and procedure declarations. 
A module can contain any number and combination of declarations, but. it can contain at most 
one program. The program contains the code (that is, the statements) that are actually 
executed. The required module and program declarations are described later in this chapter. 

The structure within a module determines the scope of the elements you declare within it. 
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SCOPE 

The scope of an element you declare, such as a variable, function, or procedure, is the area 
of code where you can refer to the element and it will be recognized. Scope is determined by 
the way the program and procedures are positioned in a module and where the elements are 
declared. 

In terms of scope, the programs, procedures, and functions are often referred to as blocks 
(that is, blocks of code). Generally, if an element is declared within a block, its scope is 
just that block. Outside the block, the element is unknown and references to it are not 
valid. A variable declared within a block is said to be local to the block and is called a 
local variable. 

An element declared at the module level (that is, one that is not declared within a program, 
procedure, or function) has a scope of the entire module. It can be referred to anywhere 
within the module. A variable declared at the module level is said to be global and is 
called a global variable. 

A block can contain one or more subordinate blocks. A variable declared in an outer block 
can always be referenced in a subordinate block. However, if a subordinate block declares an 
element of the same name, the new declaration applies while inside that block. Figure 2-1 
illustrates these rules. 
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BLOCK 1 

A DECLARATION 



BLOCK 2 

B DECLARATION 



BLOCK 3 

C DECLARATION 
D DECLARATION 






BLOCK 4 

D DECLARATION 











Variable A can be referred to anywhere 
in block 1, including blocks 2. 3, and 4. 



^ Variable B can be referred to only in 

block 2. 



Variables C and D can be referred to 
anywhere in blocks 3 and 4. 



However, block 4 again declares a 
variable named D. This second 
declaration identifies a different 
variable D and is in effect within 
block 4 only. Outside of block 4, 
yet within block 3, the original 
declaration for D applies. 
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Figure 2-1. Scope of Variables Within a Block Structure 

Storage space is allocated for a variable when the block in which it is defined is entered. 
Space is released when an exit is made from the block. Because space is allocated and 
released automatically, these variables are called automatic variables. You can specify that 
storage for a variable remains throughout execution by including the STATIC attribute when 
you declare the variable. A variable declared in this way is called a static variable. A 
global variable is always static. Because it is declared at the outermost level of a module 
(consider the module to be a block), storage for a global variable is allocated throughout 
execution of the module (or block). For further information on automatic and static 
variables, refer to Variable Declaration in chapter 3. 

The one exception to the preceding rules is an element declared with the XDCL (externally 
declared) attribute. This attribute means the element is declared in one module but can be 
referred to in another. In this case, the loader handles the links between modules. For 
further information on the XDCL attribute, refer to chapter 3. 
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MODULE DECLARATION 

The module declaration marks the beginning of a module. MODEND marks the end of a module. A 
module can contain at most one program and any combination of type, constant, variable, 
section, function, and procedure declarations. If two or more modules are compiled and 
"linked together for execution, there can be only one program declaration in all the linked 
modules . 

The format of the MODULE declaration is: 

MODULE name; + 

name The name of the module. 

The format of MODEND is: 

MODEND {name) ; 

name The name of the module. This parameter is optional. If used, the 

name must be the same as that specified in the module declaration. 

When compiling more than one module, a semicolon is required after each occurrence of MODEND 
except the last one. There it is not required but is recommended. 






+ Some variations of CYBIL available on other operating systems allow an additional option, 
the alias name, in a module declaration. If included in a CYBIL program run on CDCNET, 
this parameter is ignored. 
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Examples: 

The following example shows a module named ONE that contains various declarations and a 
program named MAIN. The module name and semicolon could be omitted following MODEND, but it 
is recommended that they both be included. 

MODULE one; 
declarations 
PROGRAM main; 
declarations 
statements 
PROCEND main; 
MODEND one; 

The following example shows a compilation consisting of three modules named ONE, TWO, and 

THREE. All three modules can be compiled and the resulting object modules linked together to ^~>. 

form a single object module that can then be executed. For readability, the module names are 

included in all occurrences of MODEND. The semicolon could be left off the last occurrence V> 

of MODEND, but it is a good practice to include it. 

MODULE one; 

declarations /statements 
MODEND one; 
MODULE two; 

declarations /statements 
MODEND two; 
MODULE three; 

declarations /statements ; r r '~\ 

MODEND three; \, 



/"""\ 
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PROGRAM DECLARATION 

The program declaration marks the beginning of a program. The end of a program is marked by 
a PROCEND statement. A program can contain any combination of type, constant, variable, 
section, function, and procedure declarations, and any statements. If two or more modules 
are compiled and linked together for execution, there can be only one program declaration in 
the linked modules. 

The format of the PROGRAM declaration is: 

PROGRAM name I (formal_parameters) ! ; + 

name The name of the program. 

formal_parameters One or more optional parameters included if the program is to be 
called by the operating system. They can be in the form 

VAR name { , name } . • . : type 

|, name i, name I... : type}... 

and /or 

name (,namej... : type 

{, name i,namej... : type)... 

where name is the name of the parameter and type is the type of 
the parameter, that is, a predefined type (described in chapter 
4) or a user-defined type (described in chapter 3). 

The first form is called a reference parameter; its value can be 
changed during execution of the program. The second form is 
called a value parameter; its value cannot be changed by the 
program. Both kinds of parameters can appear in the formal 
parameter list; if so, they are separated by semicolons (for 
example, I: INTEGER; VAR A: CHAR). Reference and value parameters 
are discussed in more detail later in this chapter. 






c 



+ Some variations of CYBIL available on other operating systems allow an additional option, 
the alias name, in a program declaration. If included in a CYBIL program run on CDCNET, 
this parameter is ignored. 
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The optional parameter list is included if a CYBIL program is to be called by the operating 
system. It allows the system to pass values (for example, a string that represents a 
command) to a CYBIL program. When the system calls a program, it includes parameters called 
actual parameters in the call. The values of those actual parameters replace the formal 
parameters in the parameter list one-for-one based on position; that is, the first actual 
parameter replaces the first formal parameter, and so on. Wherever the formal parameters 
appear in statements within the program, the values of the corresponding actual parameters 
are substituted. For every formal parameter in the program declaration, there must be a 
corresponding actual parameter. 

When a reference parameter is used, the formal parameter represents the corresponding actual 
parameter throughout execution of the program. Thus, an assignment to a formal parameter 
changes the variable that was passed as the corresponding actual parameter. An actual 
parameter that corresponds to a formal reference parameter must be addressable. A formal 
reference parameter can be of any type. 

When a value parameter is used, the formal parameter takes on the value of the corresponding 

actual parameter. However, the program cannot change a value parameter by assigning a value V. J 

to it or specifying it as an actual reference parameter to a procedure or function. A formal 

value parameter can be of any type except a heap, or an array or record that contains a heap. 

The format of PROCEND is: 

PROCEND {namej ; 

name The name of the program. This parameter is optional. If used, 

the name must be the same as that specified in the PROGRAM 
declaration. r^N 

Example t ^=- y 

The following example shows a program named MAIN that contains various declarations, 
including a procedure named SUB_1. 

PROGRAM main; 
declarations 
PROCEDURE sub_l; 
declarations 
statements 
PROCEND sub_l; re- 

statements \_ y 

PROCEND main; 
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CONSTANT, VARIABLE, TYPE, AND SECTION 
DECLARATIONS 



This chapter describes the constant declaration, which defines a name for a value that never 
changes; the variable declaration, which defines a name for a value that can change; and the 
type declaration, which defines a new type of data and gives a name to that type. In 
addition, it also describes the section declaration, which groups variables that share common 
access characteristics. 

CONSTANT DECLARATION 

A constant, as described in chapter 2, is a fixed value that is known at compile time and 
doesn't change during execution. A constant declaration allows you to associate a name with 
a value and use that name instead of the actual constant value. This provides greater 
readability because the name can be descriptive of the constant. Constant declarations also 
provide greater maintainability because the constant value need only be changed in one place, 
the constant declaration, not every place it is used in the code. 

The format of the constant declaration is: 

CONST name - value (,name » value}...; 

name The name associated with the constant value. 

value The constant value. It can be an integer, character, boolean, 

ordinal, pointer, string, or constant expression. Rules for forming 
these values are given under Constants and under Constant Expressions 
in chapter 2.. 

You can write several constant declarations, each declaring a single constant, or a single 
declaration declaring several constants where each "name - value" combination is separated by 
a comma. 

Type is not specified in a constant declaration. The type of the constant is the same as the 
type of the value assigned to it. 

If used, an expression is evaluated during compilation. The expression itself can contain 
other constants. 
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Example: 

The following example shows a constant declaration containing several different types. 

CONST 

first ■ 1, 
last - 80, 
hex = 0A8U6), 
bit_pattern - 10110101(2), 
stop_character = '.', 
continue - TRUE, 
message = 'end of line', 
last_pointer * NIL, 
length - last - first, 
result =(1*2) DIV 3; 

Each constant has the same type as the value assigned to it. For example, FIRST and LAST are ( "> 
integer types, as is LENGTH, which is the result of an expression containing integers. \ y 

Notice that the value of HEX begins with a (zero) because integers must begin with a digit. 






\,...y 
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VARIABLE DECLARATION 

A variable is an element within a program whose value can change during execution. The name 
of the variable stays the same; it is only the value contained in the variable that changes. 
To use a variable, you must declare it. 

The format for a variable declaration is: 

VAR name I, name) ... : ([attributes]! type {:» initial_yalue| 

( , name {.name! ...: ([attributes]! type (:= initial_value) j...; + 

name The name of the variable. Specifying more than one name indicates 

that all of the named variables will have the characteristics that 
follow (attributes, type, and initial_value). 



attributes One or more of the following attributes, 
specified, they are separated by commas. 



If more than one are 



Attribute 



READ 



o 



XDCL 



XREF 



Meaning 

Access attribute specifying that the variable 
is a read-only variable; the compiler checks 
to ensure that the value of the variable is 
not changed. If READ is specified, an initial 
value. is required. 

Scope attribute specifying that the variable 
is declared in this module but can be 
referenced from another module. 

Scope attribute specifying that the variable 
is declared in another module but can be 
referenced from this module. 



+ Some variations of CYBIL available on other operating systems- allow an additional option, 
the alias name, in a variable declaration. If included in a CYBIL program run on CDCNET, 
this parameter is ignored. 

++ A variation of CYBIL available on another operating system allows an additional 
attribute, the #GATE attribute. CDCNET CYBIL accepts the #GATE attribute, but it is 
ignored. 



^^Jr 
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Attribute Meaning 

STATIC Storage attribute specifying that storage 

space for the variable is allocated at load 
time and remains when control exits from the 
block. Static storage is assumed when any 
attributes are specified. 

section_name Storage attribute specifying the name of the 

section in which the variable resides. The 
result is that the variable resides with 
static variables. The section name and its 
read/write attributes must be declared using 
the SECTION declaration (discussed later in 
this chapter). 

Attributes are described in more detail later in this chapter. f~ \ 

J 
%^ f 

The attributes parameter is optional. If omitted, CYBIL assumes the 
variable can be read and written; can be referenced only within the 
block where it is created; and, unless it is declared at the 
outermost level of a module, is automatic (that is, storage for the 
variable is allocated only during execution of the block in which the 
variable is declared). 

type Data type defining the values that the variable can have. Only 

values within this data type are allowed. Types are described in 

chapter 4. , 

initial_value Initial value assigned to the variable. It can be a constant '\.J 

expression, an indefinite value constructor (described under 
Initialization later in this chapter), or a pointer to a global 
procedure. Only a static variable can be assigned an initial value. 
Initialization is discussed later in this chapter. 

This parameter is optional. If omitted, the variable is undefined. 

Any variable referenced in a program must be declared with the VAR declaration. A variable 
can be declared only once at each block level although it can be redefined in another block 
or in a contained (nested) block. f~\ 

The type assigned to a variable defines the range of values it can take on and also the ^> 

operations, functions, and procedures that can use it. CYBIL checks to ensure that the 
operations performed on variables are compatible with their types. 
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Examples: 

The following declarations define a variable named SCORES that can be any integer number, a 
variable named STATUS that can be either of the boolean values FALSE or TRUE, and two 
variables named ALPHA1 and ALPHA2 that can be characters. 

VAR scores : integer; 

VAR status : boolean; 

VAR alphal : char; 

VAR alpha2 : char; 

The declarations for the two character type variables, ALPHA1 and ALPHA2, could be combined 
as follows: 

VAR alphal, alpha2 : char; 

To combine all of the variables in one declaration, you could use: 

VAR scores : integer, 
status : boolean, 
alphal , alpha2 : char; 

ATTRIBUTES 

Attributes control three characteristics of a variable: 

• Access - whether the variable can be both read and written 

• Scope - where within the program the variable can be referenced 

• Storage - when and where the variable is stored. 
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Access 



The access attribute that you can specify is READ. A variable declared with the READ 
attribute can only be read. It must be initialized in the declaration and cannot be assigned 
another value later. It is called a read-only variable. If the READ attribute is omitted, 
CYBIL assumes the variable can be both read and written (changed). 

A variable with the READ attribute specified is assumed to be static. (For further 
information on static variables, refer to Storage later in this chapter.) A read-only 
variable can be used as an actual parameter in a procedure call only if the corresponding 
formal parameter is a value parameter; that is, a read-only variable can be passed to a 
procedure only if the procedure makes no attempt to assign a value to it. (Procedure 
parameters are described in chapter 7.) 

A read-only variable is similar to a constant, but can't always be used in the same places. 
For example, the initial value that can be assigned to a variable (as described earlier in p^ 

this chapter) must be a constant expression, an indefinite value constructor, or a pointer to f j 
a global procedure. In this case, even though a read-only variable has a constant value, it V W 
cannot be used in place of a constant expression. Also, as mentioned in chapter 2, you 
cannot reference a substring of a constant. You can, however, reference a substring of a 
variable and, thus, a read-only variable. There are other differences similar to these. The 
descriptions in this manual state explicitly whether constants and/or variables can be used. 

Examples : 

In this example, the variable DEBUG is a read-only variable set to the constant value of 
TRUE. NUMBER can be read and written. 

VAR • - (f J 

debug : [READ] boolean :- TRUE, V-" 7 

number : integer; 

The following example illustrates a difference between constants and read-only variables. To 
declare a string type, you must specify the length of the string in parentheses following its 
name. As defined in chapter 4, the length must be a positive, integer constant expression. 

CONST 

string_size_l - 5; 

VAR f "^ 

string_size_2 : [READ] integer :- 5, \^y 
stringl : string (string_size_l), 
string2 : string (string_size_2); 

The declaration of STRING1 is valid; the length of the string is 5, which is the value of the 
constant STRING_SIZE_1. However, STRING2 is invalid; even though STRING_SIZE_2 does not 
change in value, it is still a variable and cannot be used in place of a constant expression. 
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Scope 

The scope attributes define the part or parts of a module to which a variable declaration 
applies. If no scope attributes are included in the declaration, the scope of a variable is 
the block in which it is declared. A variable declared in an outermost block applies to that 
block and all the blocks it contains. However, a variable declared even at the outermost 
level of a module cannot be used outside of that module. The scope attributes, XDCL and 
XREF, are used to extend the scope of a variable so that it can be shared among modules. 

To use the same variable in different modules, you must specify the XDCL and XREF 
attributes. The XDCL attribute indicates that the variable being declared can be referenced 
from other modules. The XREF attribute indicates that the variable is declared in another 
module. When the loader loads modules, it resolves variable declarations so that each XDCL 
variable is allocated static storage and the XREF variable shares the same space. This is 
known as satisfying externals. The loader issues an error if an XREF variable does not have 
a corresponding XDCL variable. In one compilation unit or group of units that will be 
combined for execution, a specific variable can have only one declaration that contains the 
XDCL attribute. 

Declarations for a shared variable must match except for initialization. A variable declared 
with the XDCL attribute can be initialized and have different values assigned during program 
execution. A variable declared with the XREF attribute cannot be initialized but can be 
assigned values. 

If any attributes are declared, the variable is assumed to be static in storage. If no 
attributes are declared, the variable is assumed to be automatic, unless it is declared at 
the outermost level of the module. (A variable declared at the outermost level is always 
static.) 
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Example: 



Assume the following two modules have been compiled. When the loader loads the resulting 
object modules and satisfies externals, it allocates storage to FLAG, an XDCL variable, and 
initializes it to FALSE. When the loader finds the XREF variable FLAG in module TWO, it 
assigns the same storage. Thus, references to FLAG from either module refer to the same 



storage location. 
MODULE one; 



VAR 

flag : [XDCL] boolean :- FALSE; 



MODEND one; 






MODULE two; 



VAR 

flag : [XREF] boolean; 



MODEND two; U j 

Assume the following two modules have been compiled. When the loader loads the resulting 
object modules and satisfies externals, it allocates storage to FLAG, an XDCL variable, and 
initializes it to FALSE. When the loader finds the XREF variable FLAG in module TWO, it 
assigns the same storage. Thus, references to FLAG from either module refer to the same 
storage location. 
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Storage 

The storage attributes determine when storage is allocated and where storage is allocated. 

When Storage Is Allocated 

There are two methods of allocating storage for variables: automatic and static. For an 
automatic variable, storage is allocated when the block containing the variable's declaration 
begins execution. Storage is released when execution of the block ends. If the block is 
executed again, storage is allocated again, and so on. When storage is released, the value 
of the variable is lost. 

For a static variable, storage is allocated (and initialized, if that parameter is included) 
only once, at load time. Storage remains allocated throughout execution of the module. 
However, even though storage remains allocated, a static variable still follows normal scope 
rules. It can be accessed only within the block in which it is declared. A reference to a 
static variable from an outer block is an error even though storage for the static variable 
is still allocated. 

The ability to declare a static variable is important, for example, in the case where an XDCL 
variable is referenced by a procedure before the procedure that declares the variable is 
executed. Because an XDCL variable is static (refer to Scope earlier in this chapter for 
further information), it is allocated space and is initialized immediately at load time; 
therefore, it is available to be referenced before execution of the procedure that actually 
declares it as XDCL. 

A variable can be declared static explicitly with the STATIC attribute. It is assumed to be 
static implicitly if it is in the outermost level of a module or if it has any other 
attributes declared. In all other cases, CYBIL assumes the variable is automatic. Only a 
static variable can be initialized. 

The period between the time storage for a variable is allocated and the time that storage is 
released is called the lifetime of the variable. It is defined in terms of modules and 
blocks. The lifetime of an automatic variable is the execution of the block in which it is 
declared. The lifetime of a static variable is the execution of the entire module. An 
attempt to reference a variable beyond its lifetime causes an error and unpredictable results. 

The lifetime of a formal parameter in a procedure is the lifetime of the procedure in which 
it is a part. Storage space for the parameter is allocated when the procedure is called and 
released when the procedure finishes executing. 

The lifetime of a pointer must be less than or equal to the lifetime of the data to which it 
is pointing. 

The lifetime of a variable that is allocated using the storage management statements 
(described in chapter 5) is the time between the allocation of storage and the release of 
storage. A variable allocated by an automatic pointer (using the ALLOCATE statement) must be 
explicitly freed (using the FREE statement) before the block is left, or the space will not 
be released by the program. When the block is left, the pointer no longer exists and, 
therefore, the variable cannot be referenced. If the block is entered again, the previous 
pointer and the variable referenced by the pointer cannot be reclaimed. 
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Example: 

In this example, the variables COUNTER and FLAG will exist during execution of the entire 
module; however, they can be accessed only within program MAIN. 

PROGRAM main; 
VAR 

counter : [STATIC] integer :- 0, 
flag : [STATIC] boolean; 



PROCEND main; 

Where Storage Is Allocated f "~"\ 

You can optionally specify that storage for a variable be allocated in a particular section. "W 

A section is a storage area that can hold variables sharing common access attributes, that 

is, read-only variables or read/write variables. You define the section and its access 

attributes yourself using the section declaration (discussed later in this chapter). The 

result of assigning a variable to a section is that it resides with static variables; storage 

is allocated for the variable throughout execution of the program.* 

When you specify the name of a read-only section in a variable declaration, you must also 
include the variable access attribute READ. 



Vy 



Example: 

This example defines a read-only section named NUMBERS. The variable INPUT_NUMBER is a 
read-only variable that also resides in the section NUMBERS. In the variable declaration, 
the READ attribute causes the compiler to check that the variable is not written; the 
read-only section name, NUMBERS, ensures that the variable resides with static variables. 

SECTION 

numbers : READ; 
VAR 

input_number : [READ, numbers] integer :■ 100; 



+ The capability to define sections is available for compatibility with variations of CYBIL 
that are supported by. other operating systems. Some operating systems allow you to define 
and use an actual read-only section in the hardware. Data that resides in a physical area 
of the machine designated as a read-only section is protected by hardware, not by software. 
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INITIALIZATION 

An initial value can be assigned to a variable only if it is a static variable. The value 
can be a constant expression, an indefinite value constructor (described next), or a pointer 
to a global procedure. The value must be of the proper type and in the proper range. If no 
initial value is specified, the value of the variable is undefined. 

An indefinite value constructor is essentially a list of values. It is used to assign values 
to the structured types sets, arrays, and records. It allows you to specify several values 
rather than just one. Values listed in a value constructor are assigned in order (except for 
sets, which have no order). The types of the values must match the types of the components 
in the structure to which they are being assigned. An indefinite value constructor has the 
form 

[value {, value)...] 

where value can be one of the following: 

• A constant expression. 

• Another value constructor (that is, another list). 

• The phrase 

REP number OF value 
which indicates the specified value is repeated the specified number of times. 

• The asterisk character (*), which indicates the element in the corresponding position 
is uninitialized. 

The REP phrase can be used only in arrays. The asterisk can be used only in arrays and 
records. For further information, refer to the description of arrays and records in chapter 

4. 

If an initial value is assigned to a string variable and the variable is longer than the 
initial value, spaces are appended on the right of the initial value to fill the field. If 
the initial value is longer than the variable, the initial value is truncated on the right to 
fit the variable. 

In a variant record, fields are initialized in order until a special variable called the tag 
field name is initialized. The tag field name is then used to determine the variant for the 
remaining field or fields in the record, and they are likewise initialized in order. 

Depending on the attributes defined in the variable declaration, initialization is required, 
prohibited, or optional. Table 3-1 shows the initialization possible for various attributes. 
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Table 3-1. Attributes and Initialization 



Attributes 
Specified* 


Initialization 


None 


Optional if static variable; 
prohibited if automatic 
variable. 


BEAD 


Required. 


READ, STATIC 


Required. 


READ, XDCL 


Required. 


READ, STATIC, XDCL 


Required. 


READ , sectionjname 


Required. 


READ , XDCL , sectionjiame 


Required. 


XREF 


Prohibited. 


XREF.READ 


Prohibited. 


XREF, STATIC 


Prohibited. 


XREF, READ, STATIC 


Prohibited. 


STATIC 


Optional. 


XDCL 


Optional. 


XDCL, STATIC 


Optional. 


sectionjiame 


Optional. 


sect! onjname , XDCL 


Optional. 


+ The static attributi 
are specified. 


i is assumed if any attributes 
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Example: 

The variables declared in this example are inside program MAIN. Therefore, they are 
automatic unless declared with an attribute. TOTAL is automatic and as such cannot be 
initialized. COUNT is declared static and can be initialized. ALPHA and BETA are also 
static and can. be initialized because they have other attributes declared. 

PROGRAM main; 



VAR 

total : integer, 

count : [STATIC] integer :« 0, 

alpha, beta : [XDCL.READ] char := 'p'; 



PROCKND main; 

TYPE DECLARATION 

The standard data types that are defined in CYBIL are described in chapter 4. Any of these 
can be declared as a valid type within a variable declaration. The type declaration allows 
you to define a new data type and give it a name, or redefine an existing type with a new 
name. Then that name can be used as a valid type within a variable declaration. 

The format of the type declaration is: 

TYPE name = type {,name = type)...; 

name Name to be given to the new type. 

type Any of the standard types defined by CYBIL or another user-defined type. 

Once you define a type, you can use it to define yet another type. Thus, you can build a 
very complex type that can be referred to by a single name. 

The type declaration is evaluated at compilation time. It does not occupy storage space 
during execution. 
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Examples: 

In this example, INT is defined as a type consisting of all the integers; it is just a 
shortened name for a standard type. LETTERS is defined as a type consisting of the 
characters A through Z only; this is a selective subset of the standard type characters. 
DEVICES is an ordinal type that in turn is used to define EQJTABLE, a type consisting of an 
array of 10 elements. Any element in the type EQJTABLE can have one of the ordinal values 
specified in DEVICES. 

TYPE 

int = integer, 

letters - 'a*.. 'z', 

devices = (lp512, dk844, dk885, nt679), 

eqjtable - array [1..10] of devices; 

VAR f x 

r \ 

i : int , -^ ^ 

alpha : letters, : -» / ' 

table_l : eqjtable , 
statusjtable : array [1..3] of eq_table; 

All of the variables in the preceding example could have been declared strictly using 
variable declarations, as in: 

VAR 

i : integer, 
alpha : 'a'.. 'z', 

table_l : array [1..10] of (lp512, dk844, dk885, nt679), /-"N 

status table : array [1..3] of array [1..10] of (lp512, dk844, u j 

dk88T, nt679); v ~ > 

However, it obviously becomes quite cumbersome to declare a complex structure using only 
standard types. Defining your own types lets you avoid needless repetition and the increased 
possibility of errors. In addition, it makes code easier to maintain; to add a new device, 
you need add it only in the type declaration, not in every variable declaration that contains 
devices. 



\,J 
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SECTION DECLARATION 

A section Is an optional working storage area that contains variables with common access 
attributes. Including the section name in a variable declaration causes the variable to 
reside with static variables.* 

The format of the section declaration is: 

SECTION name I ,name 1 ... : attribute 

{,name |,name)... : attribute]...; 

name Name of the section. 

attribute The keyword READ or WRITE. 

A section defined with the READ attribute can be assigned read-only variables. In this case, 
the variable access attribute READ must also be included in the variable declaration. A 
section defined with the WRITE attribute can be assigned only variables that can be both read 
and written. 

The initialization of variables declared with a section name depends on their attributes, as 
shown in table 3-1. 

Example: 

Two sections are defined in this example: LETTERS is a read-only section and NUMBERS is a 
read/write section. The variable CONTROL_LETTER is a read-only variable that is assigned to 
LETTERS. The READ attribute is required because of the read-only section name. 
UPDATE_NUMBER is a variable that can be read or written, and is assigned to the section 
NUMBERS. In this example, it is also declared as an XDCL variable but this is not required. 

SECTION 

letters : READ, 

numbers : WRITE; 
VAR 

control_letter : [READ, letters] char := 'p', 

update_number : [XDCL, numbers] integer; 



+ The capability to define sections is available for compatibility with variations of CYBIL 
that are supported by other operating systems. Some operating systems allow you to define 
and use an. actual read-only section in the hardware. Data that resides in a physical area 
of the machine designated as a read-only section is protected by hardware, not by software. 
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TYPES 



There are many" standard types defined within CYBIL. A variable can be assigned to (that is, 
an element of) any of these types. The type defines characteristics of the variable and what 
operations can be performed using the variable. In general, operations involving 
nonequivalent types are not allowed; one type cannot be used where another type is expected. 
Exceptions are noted in the descriptions of types that follow. 

In this chapter, types are grouped into three major categories: basic types, structured 
types, and storage types. 

Basic types are the most elementary. They can stand alone but are also used to build the 
more complex structures. The basic types are: 

• Scalar types (integer, character, boolean, ordinal, and subrange) 

• Cell types 

• Pointer types 

Structured types are made from combinations of the basic types. The structured types are: 

• Strings 

• Arrays 

• Records 

• Sets 

Storage types hold groups of components of various types. The storage types are: 

• Heaps 

• Sequences 

Most types, when they are declared, have a fixed size. Strings, arrays, records, sequences, 
and heaps can also be declared with an adaptable size that is not fixed until execution. For 
this reason, they are sometimes called adaptable types. Adaptable strings, arrays, records, 
sequences, and heaps are discussed at the end of this chapter. 
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USING TYPES 

Types are used as parameters in two kinds of declarations: the variable declaration (to 
associate a type with a variable name) and the type declaration (to associate a type with a 
new type name). Both declarations are described in detail in chapter 3, but their basic 
formats are: 

VAR name : I [attributes!) type (:» initial_value) ; 

TYPE name - type; 

The description of each type shown in this chapter will give. the keyword and any additional 
information necessary to specify that type as a parameter. They replace the generic word 
"type" in the variable and type declarations. For example, the keyword to specify an integer 
type is INTEGER. The variable declaration would be: 

VAR name : {[attributes]) INTEGER |:= initial_value) ; % y 

The type declaration would be: 

TYPE name • INTEGER; 

EQUIVALENT TYPES 

As mentioned earlier in this chapter, operations involving nonequivalent types are not 

allowed. Two types can be equivalent, though, even if they don't appear to be identical. 

For example, two arrays can have different expressions defining their sizes, but the \ 

expressions may yield the same value. Rules for determining whether types are equivalent are "^ j 

given in the following descriptions of the types. 

Adaptable types and bound variant record types (described under Records later in this 

chapter) actually define classes of related types that vary by a characteristic, such as 

size. Adaptable type variables, bound variant record type variables, and pointers to both 

types are fixed explicitly at execution time. These types are said to be potentially 

equivalent to any of the types to which they can adapt. That is, during compilation, 

references to adaptable types and bound variant record types are allowed wherever there is a 

reference to one of the types to which they can adapt. However, further type checking is 

done during execution when each type is fixed (assigned to a specific type). It is the ^ ^ 

current type of an adaptable or bound variant record type that determines what operations are 

valid for it at any given time. 
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BASIC TYPES 

SCALAR TYPES 

All scalar types have an order; that is, for every element of a scalar type you can find its 
predecessor and successor. 

Scalar types are made up of five types: 

Integer 

Character 

Boolean 

Ordinal 

Subrange 

Integer 

The keyword used to specify an integer type is: 

INTEGER 

Integers range in value from -<2 32 > through 2 32 -1; that is -80000000(16) through 
7FFFFFFF(16). 

In general, the subrange type should be used rather than the integer type. This allows the 
compiler to perform more rigorous type-checking and may reduce the amount of storage needed 
to hold the value. 

The following operations are permitted on integers: assignment, addition, subtraction, 
multiplication, division (both quotient and remainder), all relational operations, and set 
membership. Refer to Operators in chapter 5 for further information on operations. 

The $CHAR function, described in chapter 6, converts an integer value from through 255 to a 
character according to its position in the ASCII collating sequence. 
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Example: 

This example shows the definition of a new type named INT, which consists of elements of the 
type integer. The variable declaration declares variable I to be of type INT, which is the 
integer type just declared. Also declared as a variable is NUMBERS, which is explicitly of 
integer type. Because NUMBERS is static, it can be initialized. MAX, another static 
variable, is initialized to the maximum value that can be assigned to an integer. 

TYPE 

int = integer; 
VAR 

i : int, 

numbers : [STATIC] integer :- 100, 

max : [STATIC] integer :- 7FFFFFFF(16); 

Character 

The keyword used to specify a character type is: 
CHAR 






An element of the character type can be any of the characters in the ASCII character set 
defined in appendix B. It is always a single character; more than one character is 
considered a string. (A string is a structured type that is discussed later in this 
chapter. A string of length 1 can sometimes be used as a character. Refer to Substrings 
later in this chapter. ) 

The following operations are permitted on characters: assignment, all relational operations, (j J 
and set membership. A character can be assigned to and compared to a string of length 1. ^~r 

Refer to Operators in chapter 5 for further information on operations and to Strings later in 
this chapter for further information on string assignment. 

The $INTEGER function described in chapter 6 converts a character value to an integer value 
based on its position in the ASCII collating sequence. The $CHAR function, also in chapter 
6, converts an integer value between and 255 to a character in the ASCII collating sequence. 

Example: 

This example shows the definition of a new type named LETTERS, which consists of elements of 

character type. The variable declaration declares variable ALPHA to be of type LETTERS, \ ._J 

which is type character; it is static and initialized to the character J. The variable IDS 

is explicitly declared to be of character type. 

TYPE 

letters - char; 
VAR 

alpha : [STATIC] letters :- 'j', 

ids : char; 
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Boolean 

The keyword used to specify a boolean type is: 

BOOLEAN 

An element of the boolean type can have one of two values: FALSE or TRUE. As with other 
scalar types, boolean values are ordered. Their order is: FALSE, TRUE. FALSE is always less 
than TRUE. 

You get a boolean value by performing a relational operation on integers, characters, 
ordinals, or boolean values. 

The following operations are permitted on boolean values: assignment, all relational 
operations, set membership, and boolean sum, product, difference, exclusive OR, and 
negation. Refer to Operators in chapter 5 for further information on operations. 

The $INTEGER function described in chapter 6 converts a boolean value to an integer value. 
Zero (0) is returned for FALSE; one (1) is returned for TRUE. 

Example: 

This example shows the definition of a new type named STATUS, which consists of the boolean 
values FALSE and TRUE. The variable declaration declares variable CONTINUE to be of type 
STATUS; that is, it can be either FALSE or TRUE. The variable DEBUG is explicitly declared 
to be boolean and, because it is a read-only variable and therefore static, it can be 
initialized. 

TYPE 

status = boolean; 
VAR 

continue : status, 

debug : I READ] boolean :- TRUE; 
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Ordinal 

The ordinal type differs from the other scalar types in that you, the user, define the 
elements within the type and their order. The term ordinal refers to the list of elements 
you define; the term ordinal name refers to an individual element within the ordinal. 

The format used to specify an ordinal is: 

(name, name ( , name. . .) ) 

name Name of an element within the ordinal. There must be at least two 
ordinal names. 

The order is given in ascending order from left to right. 

Each ordinal name can be used in just one ordinal type. If a name is used in more than one 
ordinal, a compilation error occurs. 

Ordinals are used to improve the readability and maintainability of programs. They allow you 
to use meaningful names within a program rather than, for example, map the names to a set of 
integers that are then used in the program to represent the names. 

The following operations are permitted on ordinals: assignment, all relational operations, 
and set membership. 

Two ordinal types are equivalent if they are defined in terms of the same ordinal type names. 

The $INTEGER function described in chapter 6 converts an ordinal value (name) to an integer 
value based on its position within the defined ordinal. 
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Examples : 

In this example, the type declaration defines a type named COLORS, which is an ordinal that 
consists of the elements RED, GREEN, and BLUE. The variable PRIMARY_COLORS is of COLORS type 
and therefore has the same elements. The variable WORKJDAYS explicitly declares the ordinal 
consisting of elements MONDAY through FRIDAY. 

TYPE 

colors = (red, green, blue); 
VAR 

primary_colors : colors , 

work_days : (monday, tuesday, Wednesday, thursday, friday); 

In the ordinal type COLORS, the following relationships hold: 

RED < GREEN 

RED < BLUE 

GREEN < BLUE 

You can find the predecessor and successor of every element of an ordinal. You can also map 
each element onto an integer using the $INTEGER function (described in chapter 6. ) For 
example, $INTEGER(RED) = 0; this is the first element of the ordinal. 

The type declaration 

TYPE 

primary_colors = (red, green, blue), 
hot_colors = (red, orange, yellow); 

is in error because the name RED appears in two ordinal definitions. 
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Subrange 

A subrange is not really a new type but a specified range of values within an existing scalar 
type. A variable defined by a subrange can take on only the values between and including the 
specified lower and upper bounds* 

The format used to specify a subrange is: 

lowerbound • . upperbound 

lowerbound Scalar expression specifying the lower bound of the subrange. 

upperbound Scalar expression specifying the upper bound of the subrange. 

The lower bound must be less than or equal to the upper bound. Both bounds must be of the 
same scalar type. 

: A 

The type of a subrange is the type of its lower and upper bounds. If a subrange completely , J 

encompasses its own type, it is said to be an improper subrange type. For example, the 

subrange 

FALSE.. TRUE 

is of type boolean and also contains every element of type boolean. It is equivalent to 
specifying the type itself. An improper subrange type is always equivalent to its own type. 



Two subranges are equivalent if they have the same lower and upper bounds. 

Subranges allow for additional error checking. Compilation options are available that cause g 
the compiler to check assignments during program execution and issue an error if it finds a 
variable not within range. (For further information on these options, refer to Compile-Time 
Directives in Chapter 8. ) In addition, subranges improve readability. Because a subrange 
defines the valid range of values for a variable, it is more meaningful to the user for 
documentation and maintenance. 

The operations permitted on a subrange are the same as those permitted on its type (the type 
of its lower and upper bound). 
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Example: 

This example shows the definition of a new type named LETTERS, which consists of the 
characters A through Z only. It also defines an ordinal named COLORS consisting of the 
colors listed. The variable declaration declares variable SCORES to consist of the numbers 
through 100. The lower and upper bounds are of integer type, so the subrange is also an 
integer type. STATUS is a subrange of boolean values, which could have been declared simply 
as BOOLEAN. H0T_C0L0RS is a subrange of the ordinal type COLORS. It consists of the colors 
RED, ORANGE, and YELLOW. 

TYPE ' 

letters = 'a'.. 'z', 

colors » (red, orange, yellow, white, green, blue); 
VAR 

scores = 0..100, 

status = FALSE.. TRUE, 

hot colors » red.. yellow; 
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CELL TYPE 

The cell type represents the smallest storage location that is directly addressable by a 
pointer. For CDCNET CYBIL on the Motorola MC68000 microprocessor, a cell is an 8-bit byte 
within a 16-bit memory word. 

The keyword used for specifying a cell type is: 

CELL 

Operations permitted on a cell type are assignment and comparison for equality and inequality. 

POINTER TYPES 

A pointer represents the location of a value rather than the value itself. When you 
reference a pointer, you indirectly reference the object to which it is pointing. 

The format for specifying a pointer type is: 

»type 

type Type to which the pointer can point. It can be any defined type. 

With the exception of a pointer to cell type (discussed later in this 
chapter), the pointer can point only to objects of the type specified. 

For example, 

VAR integer_pointer - - integer; 

defines a pointer named INTEGER_POINTER that can point only to integers. 



/" 



w 



The format for specifying the object of a pointer (that is, what the pointer points to) is: 
pointer_name « 
pointer name The name you gave the pointer in the variable declaration. 
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This preceding notation is called a pointer reference; it refers to the object to which 
pointer_name points. It can also be referred to as a dereference. For example, 

integer_pointer * 

identifies a location in memory; it is the location to which INTEGER_POINTER points. 

INTEGER_POINTER - 
INTEGER POINTER 



any 
integer 



You can initialize or assign a value to the object of a pointer as you would any other 
variable; that is: 

pointer_name * :■ value; 
This assigns the specified value to the object that the pointer points to. For example, 

integer_pointer - := 5; 
assigns the integer value 5 to the location INTEGER_POINTER points to: 

INTEGER_POINTER * 
INTEGER POINTER 



You can assign the object of a pointer to a variable in the same way: 

variable : ■ pointer_name * ; 

This takes the value of what pointer_name points to and assigns it to the variable. For 
example, 

i :■ integer_pointer * ; 

assigns to I the contents of what INTEGERJPOINTER points to, that is, 5. 

If a pointer reference is to another pointer type variable, meaning that the pointer points 
to a pointer that in turn points to a variable, you can specify the variable with the form: 

pointer_name * * 
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For example, the declarations 

TYPE 

integer_pointer = * integer; 
VAR 

pointer_2 : - integer_pointer; 

can be pictured conceptually as follows: 







POINTER_2 * 




POINTER_2*- 






a pointer 
INTEGER_POINTER 




any 
integer 


POINTER_2 







P0INTER_2 points to a pointer of type INTEGER_POINTER. INTEGER_POINTER points to integers. V.>' 
A reference to P0INTER_2 * refers to the location of the pointer that in turn points to an 
integer. A reference to P0INTER_2 - - refers to the location of the integer. 

The value assigned to a pointer can be: 

• The pointer constant NIL. 

• The pointer symbol » followed by a variable of the type to which the pointer can 
point. 

/^\ 

• A pointer variable. i j 

• A pointer-valued function. 

NIL is the value of a pointer variable without an object; the variable is not currently 
assigned to any location. It can be assigned to or compared with any pointer of any type. 

Pointers allow you to manipulate storage dynamically. Using pointers, you can create and 
destroy variables while a program is executing. Memory is allocated when the variable is 
created and released when it is destroyed. Pointers also allow you to reference the 

variables without giving each a unique name. 

P \ 

A pointer variable can be a component of a structured type as well as a valid parameter in a x_>^ 
function. A function can return a pointer variable as a value. 

Permissible operations on pointers are assignment and comparison for equality and inequality. 

Pointers to adaptable types (adaptable strings, arrays, records, sequences, and heaps) 
provide the only method for accessing objects of these types other than through formal 
parameters of a procedure. In particular, pointers to adaptable types and pointers to bound 
variant records are used to access adaptable variables and bound variant records whose types 
have been fixed by an ALLOCATE, PUSH, or NEXT statement (described in chapter 5). 

Pointers are equivalent if they are defined in terms of equivalent types. A pointer to a 
fixed type (as opposed to an adaptable type) can be assigned and compared to a pointer to an 
adaptable type or bound variant record if the adaptable type is potentially equivalent to the 
fixed type. (Refer to Equivalent Types earlier in this chapter for further information on 
potentially equivalent types.) 
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Example: 

The following example shows the declaration and manipulation of two pointer type variables. 
Comments appear to the right* 



TYPE ptr = - integer; 
VAR i, j, k : integer, 

pi : ptr, 

p2 : « pi , 



bl , b2 : boolean; 

ALLOCATE pi; 

ALLOCATE p2; 

pi - : = 10; 
p2 " := pi; 

j :- pi*; 
k :- p2--; 



bl := j = k; 

b2 :» pi = p2--; 



pi :- NIL; 
k :«■ pi-; 

IF p2 = NIL THEN 

k :- k + 1 
IFEND; 
pi := "(i + j + 2 * k); 






PTR is a type that can contain pointers to integers. 

PI is a variable that can contain pointers to integers. 
P2 is a variable that can contain pointers to PI (that 
is, pointers that point to pointers to integers). It 
could have been written as P2 : - - INTEGER. 



Allocates space for an integer (because that is what PI 

points to) and sets PI to point to that space. 

Allocates space for a pointer that points to an integer 

and sets P2 to point to that pointer. 

The space pointed to by PI is set to 10. 

The space pointed to by P2 is set to the value of the 

pointer PI. 

The integer variable J is set to what PI points to: the 

integer 10. 

The integer variable K is set to the object of the 

pointer that P2 points to. (Think of P2 — as "P2 points 

to a pointer; that pointer points to an object." You are 

assigning that object to K. ) P2 points to PI, which 

points to the integer 10. 

J and K are both 10. Bl is TRUE. 

PI points to an integer. P2 points to the pointer (PI) 

that points to the same integer. Their values are the 

same and B2 is TRUE. 

PI no longer points to anything. 

The statement is in error because PI does not point to 

anything. 

A valid statement. K is not incremented because P2 

still points to PI. 

An invalid statement. The location of an expression 
cannot be found. 
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Pointer to Cell 

A pointer to cell type can take on values of any type. 

The format for declaring a pointer to a cell is: 

"CELL 

A variable declared simply as a pointer type variable can take on as values only pointers to 
a single type,. which is specified in the pointer's declaration. A variable declared as a 
pointer to cell variable has no such restrictions. It can take on values of any type. Also, 
any fixed or bound variant pointer variable can assume a value of pointer to cell. 

Permissible operations on a pointer to a cell are assignment and comparison for equality and 

inequality. In addition, a pointer to a cell can be assigned to any pointer to a fixed or 

bound variant type. But the pointer to the fixed or bound variant type cannot have as its 

value a pointer to a variable that is not a cell type or, furthermore, whose type is not ^ \ 

equivalent to the type to which the target of the assignment points. A pointer to a cell can \ v J 

be the target of assignment of any pointer to a fixed or bound variant type. 
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Relative Pointer 

Relative pointer types represent relative locations of components within an object with 
respect to the beginning of the object. 

The format for specifying a relative pointer is: 

REL |(parent_name)l - component_type 

parent__name Name of the variable that contains the components being designated by 
~ relative pointers. The variable can be a string, array, record, 

heap, or sequence type (either fixed or adaptable). If omitted, the 
default heap is used. 

component_type Type of the component to which the relative pointer will point. 

Relative pointers are generated using the standard function #REL (described in chapter 6). A 
relative pointer cannot be used to access data directly. Instead, the relative pointer must 
be converted to a direct pointer using the standard function #PTR (also described in chapter 
6). The direct pointer can then be used to access the data. 

Relative pointers have two major differences from the other pointers discussed in this 
chapter: 

• A linked list or array of relative pointers (or some similar organization) within a 
parent type variable is still correct if the entire variable is assigned to another 
variable of the same parent type. 

• Relative pointers are independent of the base address of the parent type variable. 

Operations permitted on a relative pointer are assignment, comparison for equality and 
inequality, and the #PTR function. Relative pointers can be assigned and compared if they 
are of equivalent relative pointer types. Relative pointer types are equivalent if they are 
defined in terms of equivalent parent types and equivalent component types. 

STRUCTURED TYPES 

Structured types are combinations of the basic types already described in this chapter 
(integer, character, boolean, ordinal, subrange, cell, and pointer). Even the structured 
types discussed here can be combined with each other but they are still essentially groups of 
the basic types. The structured types described in this chapter are: 

• Strings 

• Arrays 

• Records 

• Sets 
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STRINGS 

A string is one or more characters that can be identified and referenced as a whole by one 

name. 

The format used to specify a string type is: 
STRING (length) 

length A positive integer constant expression from 1 through 65,535. 
If an initial value is specified in the variable declaration for a string, it can be: 

• A string constant. 

• The name of a string constant declared with a constant declaration. V ) 



'■*•-,. 



• A constant expression (as described in chapter 2). 

A string cannot be packed. Two string types are equivalent if they have the same length. 

The following operations are permitted on string types: assignment and comparison (all six 
relational operations). For further information, refer to Assigning and Comparing String 
Elements later in this chapter. 



c 
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Substrings 

You can reference a part of a string (this is called a substring) or a single character of a 
string. 

The format for referencing a substring or single character is: 
name (position I, length)) 






o 



name Name of the string. 

position Position within the string of the first character of the substring. (The 
position of the first character of the string is always 1.) It must be a 
positive integer expression less than or equal to the length of the 
string plus one; that is, 

1 £ position _< string length + 1 

If the string length plus one is specified, the substring is an empty 
string. 

length Number of characters in the substring. It must be a nonnegative integer 
expression or * (the asterisk character). If * is specified, the 
substring consists of the character specified by the position parameter 
and all characters following it in the string. If zero is specified, the 
substring is an empty string. If the parameter- is omitted, a length of 1 
is assumed. 

A substring reference in the form 

name (position) 

is a substring of length 1, a single character. In this form, it can be used anywhere a 
character expression is allowed. It can be: 

Compared with a character. 

Tested for membership in a set of characters. 

Used as the initial and/or final value in a FOR statement that is controlled by a 
character variable. 

Used as a value in a CASE statement. 

Used as an argument in the standard functions $INTEGER, SUCC, and PRED. 

Assigned to a character variable. 

Used as an actual parameter to a formal parameter of type character. 

Used as an index value corresponding to a character type index in an array. 
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A string constant, even if it is declared with a name in a CONST declaration, is not a 
variable. Therefore, substrings cannot be referenced in a string constant* 

Examples : 

If a string variable LETTERS is declared and initialized as follows 

VAR letters : string (6) :« 'abcdef ; 
the following substring references are valid: 



Substring 

LETTERS(l) 
LETTERS(6) 
LETTERS (1,6) 
LETTERS (1,*) 
LETTERS (2, 5) 
LETTERS (2,*) 
LETTERS (2,0) 
LETTERS (7,*) 



Comments 



Refers to 'f . 

Refers to the entire string. 

Refers to the entire string. 

Refers to 'bcdef. 

Refers to 'bcdef. 

Refers to an empty string ''. 

Refers to an empty string ' ' < 






LETTERS(O), LETTERS(8), and LETTERS(8,0) are illegal. 



If a pointer variable is declared and initialized as follows 

VAR string_ptr : "string (6) :»* letters; 

then STRING_PTR points to the string LETTERS and the pointer variable STRING_PTR * can be used 
to make substring references just like the variable LETTERS. 



Substring 

STRING_PTR"(1) 

STRING_PTR*(6) 

STRING_PTR-(1,6) 

STRING_PTR"(2,*) 

STRING_PTR-(2,0) 



Comments 

Refers to 'a'. 

Refers to *f . 

Refers to the entire string. 

Refers to 'bcdef. 

Refers to an empty string ". 
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Assigning and Comparing String Elements 

You can assign or compare a character, substring, or string to a substring, string variable, 
or character variable. A character is treated as a string of length 1. 

If you are assigning a value that is longer than the substring or variable to which it is 
being assigned, the value is truncated on the right. If you are assigning a value that is 
shorter, spaces are appended on the right to fill the field. This method is also used for 
comparing strings of different lengths. 

If a substring is being assigned to a substring of the same variable, the fields cannot 
overlap or the results are undefined. 

The concatentation operation, CAT, cannot be used with string variables. 

Example: 

Assume the string variable DAY is declared and initialized as follows: 

VAR 

day : string (6) := 'monday'; 

The following assignments can be made: 

short := day (1,3); 
empty := day (1,0); 

SHORT is assigned the string 'mon'. EMPTY is assigned a null string. 
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ARRAYS 

An array in CYBIL Is a collection of data of the same type. You can access an array as a 
whole, Using a single name, or you can access its elements individually. 

The format used for specifying an array type is: 

{ PACKED! ARRAY [subscript_bounds] OF type 



PACKED 



Optional packing parameter. When specified, the elements of the 
array are mapped in storage in a manner that conserves storage 
space, possibly at the expense of access time. . If omitted, the 
array is unpacked; that is, the elements are mapped in storage to 
optimize access time rather than to conserve space. (The array 
itself is always mapped into an addressable memory location; that 
is, it starts on a word boundary or, in the case of a packed 
array in a record, on a byte boundary.) For further information 
on how data is stored in memory, refer to appendix D, Data 
Representation in Memory. 

If the array contains structured types (such as records), the 
elements of that type (the fields in the records) are not 
automatically packed. The structured type itself must be 
declared packed. 

Value which specifies the size of the array and what values you 
can use to refer to individual elements. The bounds can be any 
scalar type or subrange of a scalar type; the bounds is often a 
subrange of integers. 

Type of the elements within the array. The type can be any 
defined type, including another array, except an adaptable type 
(that is, an adaptable string, array, or record). All elements 
must be of the same type. 

Elements of a packed array cannot be passed as reference (that is, VAR) parameters in 
programs, functions, or procedures. 

Two array types are equivalent if they have the same packing attribute, equivalent subscript 
bounds, and equivalent component types. 

The only operation permitted on an array type is assignment. 
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Initializing Elements 

An array can be initialized using an indefinite value constructor. An indefinite value 
constuctor is a list of values assigned in order to the elements of an array. The first 
value in the list is assigned to the first element, and so on. The number of values in the 
value constructor must be the same as the number of elements in the array. The type of the 
values must match the type of the elements in the array. An indefinite value constructor has 
the form 

[value {, value)...] 

where value can be one of the following: 

• A constant expression. 

• Another value constructor (that is, another list). 

• The phrase 

REP number OF value 
which indicates the specified value is repeated the specified number of times. 

• The asterisk character (*), which indicates the element in the corresponding position 
is uninitialized. 

An indefinite value constructor can be used only for initialization; it cannot be used to 
assign values during program execution. Individual elements can be assigned during execution 
using the assignment statement (described in chapter 5). 

Referencing Elements 

The array name alone refers to the entire structure. The format for referring to an 
individual element of an array is: 

array_name [subscript ] 

subscript A scalar expression within the range and of the type specified in 

the subscript_bounds field of the array declaration. This 
subscript specifies a particular element. 
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Examples: 

This example shows the definition of a type named P0S_TABLE, which is an array of 10 elements 
that can take on the values defined in POSITION. The variable declaration declares variable 
NUMBERS to be an array of five elements initialized to the values 1, 2, 3, 4, and 5 where 1 
is the value of the first element, and so on. LETTERS is an array of 26 elements that can be 
any characters. BIGJTABLE is a 100-element array, each element of which is an array of 10 
elements. 

TYPE 

position = (boi, asis, eoi), 

pos_table = array [1..10] of position; 
VAR 

i : integer :- 5, 

numbers : array [1..5] of integer :» [1, 2, 3, 4, 5], 

letters = array ['a '..'a'] of char, /*"~"\ 

big_table » array [1..100] of pos_table; y 

The declaration of BIGJTABLE is equivalent to: 

VAR bigjtable = array [1..100] of array [1..10] of position; 

Individual elements can be referenced using the following statements. 

numbers [i] This reference is the same as NUMBERS [51; it 

refers to the fifth element of the array NUMBERS. 

letters ['b'] := 'B 1 ; This statement sets the second element of the /" ~"\ 

array LETTERS to the uppercase character B. ^ J 

big_table [13] [10] := asis; This statement sets the tenth element of the 

thirteenth array to ASIS. 

The following example shows the declaration and initialization of a two-dimensional array 
named DATA_TABLE. All of the components of the third element of the array (which is an array 
itself) are set to zero. Notice that the third element of the last array, DATA_TABLE [4] [3], 
is uninitialized. 
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TYPE 

innerarray = array [1..5] of integer, , , 

twodim = array II.. 4] of innerarray; V^ 

VAR 

data table : twodim :- [ [ 5, -10, 2, 6, 3 ], 

[ 4, 11, 19, -3, 6], 
[rep 5 of 0], 
[ 3, -9, *, 4, 15] ]; 
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RECORDS 

Records are collections of data that can be of different types. You can access a record as a 
whole using a single name, or you can access elements individually. 

A record has a fixed number of components, usually called fields, each with its own unique 
name. Different fields are used to indicate different data types or purposes. 

There are two types of records: invariant records and variant records. Invariant records 
consist of fields that don't change in size or type. Variant records can contain fields that 
vary depending on the value of a key variable. Formats used for specifying both kinds of 
records are given later in this chapter. 

Operations permitted on record types are assignment and, for invariant records only, 
c&mparison for equality and inequality. The invariant records being compared cannot contain 
arrays as fields. 

Invariant Records 

An invariant record consists of fields that do not vary in size or type once they have been 
declared. They are called fixed or invariant fields. 



The format used for specifying an invariant record is: 



I PACKED 1 



RECEND 



RECORD 
field_name : 
{ , f ield_name 



PACKED 



field name 



i ALIGNED 1 
( ALIGNED i 



type 

type) 



Optional packing parameter. When specified, the fields of a 
record are mapped in storage in a manner that conserves storage 
space, possibly at the expense of access time. If omitted, the 
record is unpacked; that is, the fields are mapped in storage to 
optimize access time rather than to conserve space. For further 
information on how data is stored in memory, refer to appendix D, 
Data Representation in Memory. 

If one of the fields is a structured type (such as another 
record), the elements of that type are not packed automatically. 
The structured type itself must be declared packed. 

Name identifying a particular field. The name must be unique 
within the record. Outside of the record declaration, it can be 
redefined. 
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ALIGNED Optional alignment parameter. When a field is aligned, It Is 

mapped In storage so that It is directly addressable. This means 
the field begins on an addressable boundary to facilitate rapid 
access to the field. This may negate some of the effect of 
packing the record. For further information, refer to Alignment 
later in this chapter. 

type Any defined type, including another record, but not an adaptable 

type. 

Elements of a packed record cannot be passed as reference (that is, VAR) parameters in 
programs, functions, or procedures unless they are aligned. 

The only operations possible on whole invariant records are assignment and comparison. A 

record can be assigned to another record if they are both of the same type. A record can 

also be compared to another record for equality or inequality if they are both of the same /-~"n 

type* Invariant record types are the same if they have the same packing attributes, the same j 

number of fields, and corresponding fields have the same field names, same alignment V ^ 

attribute, and equivalent types. 

Example: 

This example shows the definition of two new types, both records. The record named DATE has 
three fields that can hold, respectively, DAY, MONTH, and YEAR. The record named RECEIPTS 
appears to contain two fields, NAME and PAYMENT; but PAYMENT is itself a record consisting of 
the three fields in DATE, just described. Initialization of fields within records is 
discussed under Initializing Elements later in this chapter. 

TYPE - (' , : 

date = RECORD %~^ 

day : 1..31, 
month : string (4), 
year : 1900.. 2100, 
RECEND, 

receipts » RECORD 

name : string (40), 
payment : date, 

RECEND; 
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Variant Records 

A variant record contains fields that may vary in size, type, or number depending on the 
value of an optional tag field. These different fields are called variant fields or simply 
variants. 

The format used for specifying a variant record is: 

i PACKED 1 (BOUND) RECORD 

{fixed_field_name : (ALIGNED) type}... + 

CASE (tag_field_name :) tag_f ieldjtype OF 

■ tag_field_yalue ~ 
variant_f ield 
{» tag_field_value = 
variant_f ield ) . . . 
CASEND 
RECEND 



PACKED 



BOUND 



fixed field name 



Optional packing parameter. When specified, the fields of a 
record are mapped in storage in a manner that conserves storage 
space, possibly at the expense of access time. If omitted, the 
record is unpacked; that is, the fields are mapped in storage to 
optimize access time rather than to conserve space. For further 
information on how data is stored in memory, refer to appendix D, 
Data Representation in Memory. 

If a field is a structured type (such as another record), the 
elements of that type are not packed automatically. The 
structured type itself must be declared packed. 

Optional parameter indicating that this is a bound variant 
record. If specified, the tag_field_name parameter is required. 
Additional information on bound variant records follows the 
parameter descriptions. 

The name of a fixed field (one that does not vary in size), as 
described under Invariant Records earlier in this chapter. The 
name must be unique within the record. Outside of the record 
declaration, it can be redefined. There can be zero or more 
fixed fields. 



+ When more than one fixed field is specified, they must be separated by commas. 
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ALIGNED 



type 

tag_f ield_name 



Optional alignment parameter; the same as that for an invariant 
record. When a field is aligned, it is mapped in storage so that 
it is directly addressable. This means the field begins on an 
addressable boundary to facilitate rapid access to the field. 
This may negate some of the effect of packing the record. For 
further information, refer to Alignment later in this chapter. 

Any defined type, including another record, but not an adaptable 
type. 

Optional parameter specifying the name of the variable that 
determines the variant. The current value of this variable 
determines which of the variant fields that follow will actually 
be used. If omitted, the variant that had the last assignment 
made to one of its fields is used. This parameter is required if 
the record is a bound variant record (BOUND is specified). 
Additional information is given following the parameter 
descriptions. 

Any scalar type. This type defines the values that the 
tag_field_value can have. 

A constant scalar expression or subrange. It must be one of the 
possible values that can be assigned to the variable specified by 
tag_field_name. It must be of the type and within the range 
specified by tag_field_type. Specifying a subrange has the same 
effect as listing each value separately. 

_ Zero or more fixed fields of the same form as that shown in the 

second line of this format. This field exists only if the 
current value of tag_field_name is the same as that in the 
tag_field_value associated with the variant_field. The last 
field can be a variant itself. 

The variant fields must follow all invariant (fixed) fields in the record. The field 
following the reserved word CASE is called the tag_field_name. The tag_f ield_name can take 
on different values during execution. When its value matches one of the values specified in 
a tag_f ield_value, the variants associated with that tag_f ield_value are used. Variants 
themselves consist of zero or more fixed fields optionally followed by another variant. If 
the last field is itself a variant, it can have another CASE clause, tag_field_name, and so 
on. 

The tag_field_name is an optional field. When it is omitted, no storage is assigned for the 
tag field. If the record has no tag field, you choose a variant by making an assignment to a 
subfield within a variant. The variant containing that subfield becomes the currently active 
variant. In a variant record without a tag field, all fields in a new active variant become 
undefined except the subfield that was just assigned. An attempt to access a variant field 
that is not currently active produces undefined results. 

Space for a variant record is allocated using the largest possible variant. 



tag_field_type 
tag_f ield_value 

variant field 
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Variant record types are equivalent if they have the same packing attribute, their fixed 
fields are equivalent (as defined for invariant record types), they have the same tag field 
names, their tag field types are equivalent, their tag field values are the same, and their 
corresponding variant fields are equivalent. 

A bound variant record is specified by including the BOUND parameter; the tag_f ield_name is 
also required. A bound variant record type can be used only to define pointers for bound 
variant record types (that is, bound variant pointers). A variable of this type is always 
allocated in a sequence or heap, or in the run-time stack managed by the system. 

When allocating a bound variant record, you must specify the tag field values that select the 
variation of the record. Only the specified space is allocated. The ALLOCATE statement in 
this case returns a bound variant pointer. 

If a formal parameter of a procedure is a variant record type, the actual parameter cannot be 
a bound variant record type. 

A record cannot be assigned to a variable of bound variant record type. 

Bound variant record types are equivalent if they are defined in terms of equivalent, unbound 
records. A bound variant record type is never equivalent to a variant record type. 

Example: 

This example defines a. type named SHAPE, which becomes the type of the tag field, in this 
case a variable named S. When S is equal to TRIANGLE, the record containing fields SIZE, 
INCLINATION, ANGLE 1 , and ANGLE2 is used as if it were the only record available. When the 
value of S changes, the record variant being used changes too. 

TYPE 

shape = (triangle, rectangle, circle), 
angle * -180.. 180, 
figure = RECORD 
x, 

y» 

area : integer, 
CASE s : shape OF 
■ triangle - 

size : integer, 

inclination, 

anglel , 

angle2 : angle, 
= rectangle = 

sidel , 

side2 : integer, 

skew, 

angle3 : angle, 
= circle * 

diameter : integer, 
CASEND, 
RECEND; 



Revision 01 T yP es 4 ~ 27 



4-28 CDCNET CYBIL Revision 01 



O 

o 



Initializing Elements 

A record can be initialized using an indefinite value constructor. An indefinite value 
constructor is a list of values assigned in order to the fields of a record. The first value 
in the list is assigned to the first field, or first element in a field, and so on. The type 
of the values must match the type of the elements in the field. An indefinite value 
constructor has the form 

[value {, value)...] 

where value can be one of the following: 

• A constant expression. 

• Another value constructor (that is, another list). 

• The asterisk character (*), which indicates the element in the corresponding position ,<r~-x 
is uninitialized. \. g. 

An indefinite value constructor can be used only for initialization; it cannot be used to 
assign values during program execution. Individual fields can be assigned during execution 
using the assignment statement (described in chapter 5). 

Example: 

The variable BIRTHJDAY, in this example, is a record with the fields described in the record 
type named DATE. It is initialized using an indefinite value constructor to the 24th day of 
August, 1950. 

TYPE 

date = RECORD 

day : 1..31, 
month : string (4), 
year : 1900.. 2100, 
RECEND; 

VAR 

birth_day : date : - [24, AUG, 1950]; 

(' \ 
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Referencing Elements 

The record name alone refers to the entire structure. The format for accessing a field in a 
record is: 

record_name. f ield_name ( . sub_f ield_name ) . . . 

record_name Name of the record as declared in the variable declaration. 

field_name Name 'of the field to be accessed. If the field is an array, a 

reference to an individual element can also be included using the 
form: 

f ield_name [subscript ] 

sub_field_name Optional field name. This parameter is used if the field previously 
specified is itself a structured type, for example, another record. 
If the contained field is an array, a reference to an individual 
element can be included using the form: 

sub_f ield_name [subscript ] 

Example: 

The variable PROFILE is a record with the fields described in the record type STATS. In this 
example, PROFILE is initialized with the values in the indefinite value constructor in the 
variable declaration. 

TYPE stats - RECORD 

age : 6.. 66, 
married : boolean, 
date : RECORD 

day : 1..31, 
nonth : 1..12, 
year : 80.. 90, 
RECEND, 
RECEND; 

VAR profile : stats := [23, FALSE, [3,5,82] ]; 

The following references can be made to fields. 

profile. age This field contains 23. 

profile. married This field contains FALSE, 

profile. date. day This field contains 3. 

profile.date. month This field contains 5. 

profile. date. year This field contains 82. 
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Alignment 

Unpacked records and their fields are always aligned (that is, directly addressable). Even 
if it is packed, a record itself is always aligned (that is, the first field is directly 
addressable) unless it is an unaligned field within another packed structure. Fields in a 
packed record, however, are not aligned unless the ALIGNED attribute is explicitly included. 
Aligning the first field of a record aligns the entire record. 

Unpacked records and their fields, because they are aligned, can always be passed as 
reference (that is, VAR) parameters in programs, functions, and procedures. Packed records 
must be aligned to be valid as reference parameters. Packed, unaligned records cannot be 
used. 

SETS 

A set is a collection of elements that, unlike arrays and records, is always operated on as a ,. / 
single unit. Individual elements are never referenced. " 

The format used to specify a set type is: 

SET OF scalarjtype 

scalarjtype Type of all elements that will be within the set. It can be a 
scalar type or a subrange of a scalar type. 



All members of a set must be of the same type. Members within a set have no specific order; 



that is, order has no effect in any of the operations performed on sets. 



Set types are equivalent if their elements have equivalent types. 

Permissible operations on sets are assignment, intersection, union, difference, symmetric 
difference, negation, inclusion, identity, and membership. Refer to Operators in chapter 5 
for further information on set operations. The SUCC and PRED functions are not defined for 
set types. 

The difference (-) or symmetric difference (XOR) of two identical sets is the empty set. The 
empty set is contained in any set. For a given set, the complement of the empty set, -[ ], 
is the full set. 
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Initializing and Assigning Elements 

Values can be assigned to a set using an indefinite value constructor or a set value 
constructor. An indefinite value constructor can be used only for initialization; a set 
value constructor can be used for both initialization and assignment during program execution. 

An indefinite value constructor is a list of values assigned to the set. The type of the 
values must match the type of the set. An indefinite value constructor has the form: 

[value |, value)...] 

value A constant expression or another indefinite value constructor (that is, 
another list). 

A set value constructor constructs a set through explicit assignment. A set value 
constructor has the form: 

$name [ { value | , value )...)] 

name Name of the set type. The dollar sign ($) must precede the name to 

indicate a set value constructor. 

value An expression of the same type as that specified for the set. When 

used in initialization, only constants or constant expressions are 
valid. The empty set can be specified by [ ]. 

A set value constructor can be used wherever an expression can be used. 
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Example: 

This example shows the declaration of a variable named ODD that is a type of a set of 
integers from through 10. It is initialized with an indefinite value constructor assigning 
the integers 1, 3, and 5 to the set. The variable VOWELS is a set that can contain any of 
the letters A through Z. It is assigned the letters A, E, I, 0, and U using a set value 
constructor. It constructs a set of type C, which contains the specified letters; then that 
set is assigned to the set VOWELS. The variables LIST_1 and LIST_2 are sets that can contain 
any characters. LIST_1 is assigned, using a set value constructor, the letters X, Y, and Z. 
LIST_2 is assigned the complement of X, Y, and Z, that is, a set consisting of every 
character except the letters X, Y, and Z. 



TYPE 








a = 


set 


of 0..10, 




c = 


set 


of 'a'.-'z', 




ch = 


set 


of char; 




VAR 








odd : 


: a 


:- [1, 3, 5], 




vowels : 


c, 




list. 


J, 


list_2 : ch; 




. 








• 








. 








vowels 


;■ 


$c['a\ 'e\ H\ 


'o' 


list 1 


: = 


$ch ['x\ V, 'z 


']; 


list_2 


; x 


-$ch [»x\ 'y\ V 


z']; 
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STORAGE TYPES -■ 

Storage types represent structures to which variables can be added, deleted, and referenced 
under program control. (The statements used to access the storage types are described under 
Storage Management Statements in chapter 5.) There are two storage types: 

• Sequences 

• Heaps 
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SEQUENCES 

A sequence type is a storage structure whose components are referenced sequentially using 
pointers. These pointers are constructed by the NEXT and RESET statements (described in 
chapter 5). 

The format used for specifying a sequence type is: 

SEQ ({REP number OF I type 1 ,|REP number OF! type)...) 

number Positive integer constant expression. This is an optional parameter 
specifying the number of repetitions of the specified type. 

type A fixed type that can be a user-defined type name; one of the 

predefined types integer, character, boolean, or cell; or a 
structured type using the preceding types. 

The phrase "REP number OF type" can be repeated as many times as desired. It specifies that 
storage must be available to hold the indicated number of occurrences of the named types 
simultaneously. The types that are actually stored in a sequence do not have to be the same 
as the types specified in the declaration, but adequate space must have been allocated to 
hold those types in the declaration. In other words, if a sequence is declared with several 
repetitions of integer type, the space to hold these integers has to be available, but it 
might actually hold strings or boolean values. 

Sequence types are equivalent if they have the same number of REP phrases and corresponding 
phrases are equivalent. Two REP phrases are equivalent if they have the same number of 
repetitions of equivalent types. 

Assignment to another sequence is the only operation permitted on sequences. 
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HEAPS 

A heap type is a storage structure whose components are allocated explicitly by the ALLOCATE 
statement and released by the FREE and RESET statements (described in chapter 5). They are 
referenced by pointers constructed by the ALLOCATE statement. 

The format used for specifying a heap type is: 

HEAP (I REP number OF I type 1 ,iREP number OF I type!...) 

number Positive integer constant expression. This is an optional parameter 
specifying the number of repetitions of the specified type. 

type A fixed type that can be a user-defined type name; one of the 

predefined types integer, character, boolean, or cell; or a 
structured type using the preceding types. 

The phrase "REP number OF type" can be repeated as many times as desired. It specifies that 
storage must be available to hold the indicated number of occurrences of the named types 
simultaneously. The types that are actually stored in a heap do not have to be the same as 
the types specified in the declaration, but adequate space must have been allocated to hold 
those types in the declaration. In other words, if a heap is declared with several 
repetitions of integer type, the space to hold these integers has to be available, but it 
might actually hold strings or boolean values. 

Heap types are equivalent if they have the same number of REP phrases and corresponding 
phrases are equivalent. Two REP phrases are equivalent if they have the same number of 
repetitions of equivalent types. ^> 

The default heap can be managed with the ALLOCATE and FREE statements in the same way as a * _^ 

user-defined heap. For further information, refer to the descriptions of these statements in 
chapter 5. 
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ADAPTABLE TYPES 

An adaptable type is a type that has indefinite size or bounds; it adapts to data of the same 
type but of different sizes and bounds. The types described thus far in this chapter are 
fixed types. An adaptable type differs from a fixed type in that the storage required for a 
fixed type is constant and can be determined before execution. Storage for an adaptable type 
is determined during program execution. 

An adaptable type can be a string, array, record, sequence, or heap. An adaptable type can 
be used to define formal parameters in a procedure and adapatable pointers. Pointers are the 
mechanism used for referencing adaptable variables. 

The size of an adaptable type must be fixed during execution. This can be done in one. of 
three ways: 

• If the adaptable type is a formal parameter to a procedure or function, the size is 
fixed by the actual parameters when the procedure or function is called. You can 
determine the length of an actual parameter string using the STRLENGTH function, and 
the bounds of an actual parameter array using the UPPERBOUND and LOWERBOUND 
functions. (For further information, refer to the description of the appropriate 
function in chapter 6. ) 

• An adaptable pointer type on the left side of an assignment statement is fixed by the 
assignment operation. It can be assigned any pointer whose current type is one of 
the types that the adaptable type can take on. 

• An adaptable type can be fixed explicitly using the storage management statements 
(described in chapter 5). 

An adaptable type is declared with an asterisk taking the place of the size or bounds 
normally found in the type or variable declaration. 

ADAPTABLE STRINGS 

The format used for specifying an adaptable string is: 
STRING ( * f<- length!) 

length Optional parameter specifying the maximum length of the adaptable 
string. If omitted, 65,535 characters is assumed. 

If the string exceeds the maximum allowable length, an error occurs. 

Two adaptable string types are always equivalent. 
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ADAPTABLE ARRAYS 

The format used for specifying an adaptable array is: 

{PACKED! ARRAY [ I lower_bound .,) *] OF type 

PACKED Optional packing parameter. When specified, the elements of the 

array are mapped in storage in a manner that conserves storage space, 
possibly at the expense of access time. If omitted, the array is 
unpacked; that is, the elements are mapped in storage to optimize 
access time rather than to conserve space. (The array itself is 
always mapped into an addressable memory location. ) For further 
information on how data is stored in memory, refer to appendix D, 
Data Representation in Memory. 

If the array contains structured types (such as records), the 
elements of that type (the fields in the records) are not 
automatically packed. The structured type itself must be declared 
packed. 

lower_bound A constant integer expression that specifies the lower bound of the 
adaptable array. This parameter is optional, but its use is 
encouraged. Omission of this parameter (only the * appears) 
indicates it is an adaptable bound of type integer. 

type Type of the elements within the array. The type can be any defined 

type except an adaptable type (that is, an adaptable string, array, 
record, sequence, or heap). All elements must be of the same type. /f 



v*y 
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Only one dimension can be adaptable in an array and that dimension must be the outermost 
(first one in the declaration). - 

Adaptable arrays adapt to a specific range of subscripts. An adaptable array can adapt to 
any array with the same packing attribute, equivalent subscript bounds, and equivalent 
component types. If a lower bound is specified in the adaptable array declaration, both 
arrays must also have the same lower bound. 

Adaptable array types are equivalent if they have the same packing attributes and equivalent 

component types, and if their corresponding array and component subscript bounds are ^_ 

equivalent. Two subscript bounds that contain asterisks only are always equivalent. Two f \ 

subscript bounds that contain identical lower bounds are equivalent. V := > 
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ADAPTABLE RECORDS 

An adaptable record contains zero or more fixed fields followed by one adaptable field that 
is a field of an adaptable type. 

The format used for specifying an adaptable record is: 

{PACKED} RECORD 

I f ixed_f ield_name : I ALIGNED] type!..." 1 " 

adaptable_field_name : {ALIGNED] adaptablejtype 



RECEND 



PACKED 



Optional packing parameter. When specified, the fields of a 
record are mapped in storage in a manner that conserves storage 
space, possibly at the expense of access time. If omitted, the 
record is unpacked; that is, the fields are mapped in storage to 
optimize access time rather than to conserve space. For further 
information on how data is stored in memory, refer to appendix D, 
Data Representation in Memory. 

If a field is a structured type (such as another record), the 
elements of that type are not packed automatically. The 
structured type itself must be declared packed. 



fixed field name 



ALIGNED 



Name identifying a particular fixed field, 
unique within the record. 



The name must be 



type 



Optional alignment parameter. When a field is aligned, it is 
mapped in storage so that it is directly addressable, This means 
the field begins on an addressable boundary to facilitate rapid 
access to the field. This may negate some of the effect of 
packing the record. For further information, refer to Alignment 
earlier in this chapter. 

Any defined type, including another record, but not an adaptable 
type. 



adaptable_field_name Name identifying the adaptable field. 

adaptablejtype An adaptable type. 

An adaptable record can adapt to any record whose types are the same except for the last 
field. That last field must be one to which the adaptable field can adapt. 

Two adaptable record types are equivalent if they have the same packing attributes, the same 
alignment, the same number of fields, and corresponding fields with identical names and 
equivalent types. 



+ If more than one fixed (nonadaptable) field is specified, they must be separated by 
commas . 
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ADAPTABLE SEQUENCES 

The format used for specifying an adaptable sequence is: 

SEQ (*) 
An adaptable sequence can adapt to a sequence of any size. 
Two adaptable sequence types are always equivalent* 

ADAPTABLE HEAPS 

The format used for specifying an adaptable heap is: 

HEAP (*) 
An adaptable heap can adapt to a heap of any size. 
Two adaptable heap types are always equivalent. 
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EXPRESSIONS AND STATEMENTS 



EXPRESSIONS 

Expressions are made up of operands and operators. Operators act on operands to produce new 
values. (Constant expressions are evaluated to provide values for constants. Refer also to 
Constant Expressions in chapter 2.) 

In general, operations involving nonequivalent types are not allowed; one type cannot be used 
where another type is expected. Exceptions are noted in the following descriptions. 

OPERANDS 

Operands hold or represent the values to be used during evaluation of an expression. An 
operand can be a variable, constant, name of a constant, set value constructor, function 
reference (either standard function or user-defined function), pointer to a procedure name, 
pointer to a variable, or another expression enclosed in parentheses. 

The value of a variable being used as an operand is the last value assigned to it. A 
constant name is replaced by the constant value associated with it in the constant 
declaration. 

A function reference causes the function to be executed; the value returned by the function 
takes the place of the function reference in the expression. 
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OPERATORS 

Operators cause an action to be performed on one operand or a pair of operands* Many of the 
operators can be used only on basic types; they will be noted in their individual 
descriptions. Some operators can be used on sets. Although they are discussed in the 
individual descriptions that follow, there is also a separate description in this chapter on 
set operations. 

An operation on a variable or component of a variable that has an undefined value will 
produce an undefined result. 

There are five kinds of operators, many of which are identified by reserved symbols. They 
are listed here in the order in which they are evaluated from highest to lowest precedence. 

Negation operator ( NOT ) 

Multiplication operators ( * , DIV, / , MOD, and AND ) 

Sign operators ( + and - ) 

Addition operators ( + , - , OR, and XOR ) 

Relational operators (<»<",> t >"»".<> » and IN ) 

In the relational operators that consist of two symbols (that is, <", >=, and <>), the 
symbols cannot be separated by a space or by any other character; they must appear together. 

When an expression contains two or more operators of the same precedence, operations are ^ -^ 

performed from left to right. The only way to explicitly change the order of evaluation is \ \ 

to use parentheses. Parentheses indicate that the expression inside them should be **■— 
evaluated first. 

Negation Operator 

The negation operator, NOT, applies only to boolean operands. 

NOT TRUE equals FALSE. NOT FALSE equals TRUE. 

/f~"\ 
Multiplication Operators H^y 

The multiplication operators perform multiplication and set intersection (*), integer 
quotient division (DIV), remainder division (MOD), and the logical AND operation (AND). 
Table 5-1 shows the multiplication operators, the permissible types of their operands, and 
the type of result they produce. 
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Operator 


Operation 


Type of 
Operands 


Type of 
Result 


* 

* 
DIV 

MOD 

AND 


Multiplication 

Set intersection 
Integer quotient 

Remainder 4 '* 

Logical AND +++ 


Integer or 
subrange of 
integer 

Set of a 
scalar type 

Integer or 
subrange of 
integer 

Integer or 
subrange of 
integer 

Boolean 


Integer 

Set of the 
same type 

Integer 
Integer 
Boolean 


+ Integer quotient refers to the whole number that 
results from a division operation. The remainder is 
ignored. A more formal definition is: for positive 
integers a, b, and n, 

a DIV b - n 

where n is the largest integer such that b * n <* a. 

For one or two negative integers, 

(-a) DIV b = (a) DIV (-b) = - (a DIV b) and 
(-a) DIV (-b) = a DIV b 

++ Remainder refers to the remainder of a 

division operation. A more formal definition is: 

a MOD b « a - (a DIV b) .* b 

*** TRUE AND FALSE = FALSE 
TRUE AND TRUE - TRUE 
FALSE AND FALSE - FALSE ' 
FALSE AND TRUE = FALSE 

When the first operand is FALSE, the second operand is 
never evaluated. 
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Sign Operators 

The sign operators perform the identity operation (+) and sign inversion and set complement 
operation (-). Table 5-2 shows the sign operators, the permissible types of their operands, 
and the type of result they produce* 

Table 5-2. Sign Operators 



Operator 


Operation 


Type of 
Operand 


Type of 
Result 


+ 


Identity 
(indicates a 

positive 

operand) 


Integer 


Integer 




Sign inversion 
(indicates a 

negative 

operand) 


Integer 


Integer 


- 


Set complement 


Set of a 
scalar type 


Set of the 
same type 






Addition Operators 

The addition operators perform addition and set union (+), subtraction, boolean difference, 
and set difference (-), the logical OR operation (OR), and the exclusive OR operation (XOR). 
Table 5-3 shows the addition operators, the permissible types of their operands, and the type 
of result they produce. 
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Table 5-3. Addition Operators 
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Operator 


Operation 


Type of 
Operands 


Type of 
Result 


+ 


Addition 


Integer or 
subrange of 
integer 


Integer 


+ 


Set union 


Set of a 
scalar type 


Set of the 
same type 


— 


Subtraction 


Integer or 
subrange of 
integer 


Integer 


- 


Boolean 
difference + 


Boolean 


Boolean 


- 


Set difference 


Set of a 
scalar type 


Set of the 
same type 


OR 


Logical OR ++ 


Boolean 


Boolean 


XOR 


Exclusive OR +++ 


Boolean 


Boolean 


XOR 


Symmetric 
difference 


Set of a 
scalar type 


Set of the 
same type 


+ TRUE - TRUE - FALSE 
TRUE - FALSE - TRUE 
FALSE - TRUE - FALSE 
FALSE - FALSE - FALSE 






++ TRUE OR TRUE = TRUE 
TRUE OR FALSE = TRUE 
FALSE OR TRUE = TRUE 
FALSE OR FALSE = FALSE 






When the first operand is 1 
never evaluated. 


?RUE, the second 


operand is 


+ " M " TRUE XOR TRUE - FALSE 
TRUE XOR FALSE = TRUE 
FALSE XOR TRUE = TRUE 
FALSE XOR FALSE - FALSE 







o 
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Relational Operators 

The relational operators ( <, <=, >, >=, = , <>, and IN ) test for the truth, or falsity of 
these given conditions: less than (<), less than or equal to or subset of a set (<-), greater 
than (>), greater than or equal to or a superset of a set (>=), equal to or set identity (».), 
not equal to or set inequality «>), and set membership (IN). 

Because relational operators are valid on so many different types, some special points about 
each type are noted next. Following these comments, table 5-4 lists the relational operators 
and the permissible types of their operands; they always produce a boolean type result. 

Comparison of Scalar Types 

The comparison operators (<,<-,>,>•," t and <> ) are allowed only between operands 
of the same scalar type or between a substring of length 1 and a character. 

For integer type operands, the relationships all have their usual meaning. v p 

For character type operands, each character is essentially mapped to its corresponding 
integer value according to the ASCII collating sequence. (This is the same operation 
performed by the $INTEGER function described in chapter 6.) The operands and relational 
operators are then evaluated using the characters' integer values. 

For boolean type operands, FALSE is always considered to be less than TRUE. 

For ordinal type operands, operands are equal only if they are the same value; otherwise, 

they are not equal. For the other relational operators, each ordinal is essentially mapped 

to the corresponding integer value of its position in the ordinal list where it is defined. /f "\ 

(This is the same operation performed by the $INTEGER function described in chapter 6.) The v.y 

operands and relational operators are then evaluated using the ordinals' integer values. For 

an example, refer to the discussion of ordinal types under Scalar Types in chapter 4. 

Operands that are a subrange of a scalar type can be compared with operands of the same type, 
including another subrange of the same type. 
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Comparison of Pointer Types 

Two pointers can be compared if they are pointers to equivalent or potentially equivalent 
types. (For further information on equivalent types, refer to Equivalent Types in chapter 
4.) For potentially equivalent types, one or both of the pointers can be pointers to 
adaptable or bound variant types. The current type of such a pointer must be equivalent to 
the type of the pointer with which it is being compared; if it is not, the operation is 
undefined. 

Pointers can be compared for equality and inequality only. Two pointers are equal if they 
designate the same variable or if they both have the value NIL. A pointer of any type can be 
compared with the value NIL. Two pointers to a procedure are equal if they designate the 
same declaration of a procedure. 

Comparison of Relative Pointers 

Two relative pointers can be compared only if they are of equivalent types. Two relative 
pointers are equal if they can be converted to equal pointers using the #PTR function 
(described in chapter 6). 

Comparison of String Types 

All of the comparison operators are valid between operands that are strings. If the lengths 
of the two string operands are unequal, spaces are appended to the right of the shorter 
string to fill the field. 

Strings are compared character by character from left to right; that is, each character from 
one string is compared with the character in the corresponding position of the second 
st'ring. Each character is compared using the same method as for operands of character type; 
the integer value of the character, when mapped to the ASCII collating sequence, is used. 

Comparison of Sets and Set Membership 

Comparison operators have slightly different meanings for sets than for other types. The 
only comparison operators valid for sets are: = (meaning identical to), <> (meaning different 
from), <= (meaning the left operand is contained in the right operand), and >» (meaning the 
left operand contains the right operand). These operators are valid between two sets of the 
same type. Their exact meanings are detailed later in this chapter under Set Operators. 

The other relational operator for sets is IN. A specified operand is IN a set if that 
operand is a member of the set. The set must be the of same type or a subrange of the same 
type as the operand. The operand can be a subrange of the type of the set. 
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Comparison of Other Types 

Invariant records can be compared for equality and inequality only. Two equivalent records 
are equal if their corresponding fields are equal. 

The following types cannot be compared: 

Arrays or structures that contain an array as a component or field. 

Variant records. 

Sequences. 

Heaps. 

Records that contain a field of one of the preceding types. /'"\ 

However, pointers to these types can be compared. "*-* 



^> 
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Table 5-4. Relational Operators 
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Operator 


Operation 


Type of 
Left Operand 


Type of 
Right Operand 


< 
<- 

> 
>= 

<> 


Less than 
Less than or 


Any scalar 
type 


The same 
scalar type 


equal to 
Greater than 
Greater than or 

equal to 
Equal to 
Not equal to 


A string 


A string of 
the same 
length 


A string 

of length 1 + 


A character 


A character 


A string 

of length 1 + 


IN 


Set membership 


Any scalar 
type 


A set of the 
same type 


A string 

of length 1 + 


A set of 
character type 


<> 
<= 

>= 


Equality (also 

called 

identity) 
Inequality 
Is contained 

in 
Contains 


A set of any 
scalar type 


A set of the 
same type 


ae 

<> 


Equality 
Inequality 


A nonvarlant 
record type 
containing 
no arrays 


The same type 


Any pointer 
type or the 
value NIL 


The same type 
or the value 
NIL 


+ The string of length 1 has 
STRING(position) 
where the length is implie 

STRING(position,l) 
is not valid in this case. 


the form 
d. The form 
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Set Operators 

The set operators have already been mentioned briefly in the preceding sections on 
multiplication, sign, addition, and relational operators. This section discusses all of them 
and details how they are used with sets* 

The set operators perform assignment, union (+), intersection (*), difference (-), symmetric 
difference (XOR), negation (-), identity or equality (-), inequality (< >), inclusion (<»), 
containment (>=), and membership (IN). 

Assignment is discussed under Sets in chapter A. The next five operations (union, 
intersection, difference, symmetric difference, and negation) all produce results that are 
sets. They are described in table 5-5. The remaining operations (identity, inequality, 
inclusion, containment, and membership) produce boolean results. They are described in table 
5-6. 

The relational operations described in table 5-6 take place only after any operations ,^~\ 

described in table 5-5 have been performed. ^ J 






ft \ 
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Table 5-5. Operations That Produce Sets 
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Operator 


Operation 


Description of Operation 


+ 


Union 


The resulting set consists of all 
members of both sets. The result 
of A + B is all elements of sets 
A and B. 




Difference 


The resulting set consists of 
the members in the lefthand set 
that are not in the righthand 
set. The result of A - B is the 
elements of A that are not in B. 
This operation differs from 
negation in that two operands 
are present. 


* 


Intersection 


The resulting set consists of the 
members that are in both sets. 
The result of A * B is all 
elements that are in both A 
and B. 




Negation 
(complement) 


The resulting, set consists of 
the members of the set's type 
that are not in the set. The 
result of -A is all elements of 
A's type that are not in A. 
This operation differs from the 
difference operation in that only 
one operand is present. 


XOR 


Symmetric 
difference 


The resulting set consists of the 
members of either but not both 
sets. The result of A XOR B is 
all elements in A or B that are 
not common to both A and B. 
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Table 5-6. Operations That Produce Boolean Results 



Operator 



<> 



IN 



Operation 



Equality 
(identity) 



Inequality 



Inclusion 



Containment 



Membership 



Description of Operation 



The resulting value is TRUE if 
every member of one set is 
present in the other set and 
vice versa. A - B is TRUE if 
every element of A is in B and 
every element of B is in A. It 
is also TRUE if A and B are both 
empty sets. In any other case, 
it is FALSE. 

The resulting value is TRUE if 
not every member of one set is a 
member of the other set. A <> B 
is TRUE if A - B is FALSE. 

The resulting value is TRUE if 
every member of the lefthand set 
is also a member of the right- 
hand set. A <- B is TRUE if 
every element of A is in B. It 
is also TRUE if A is an empty 
set. In all other cases, it is 
FALSE. 

The resulting value is TRUE if 
every member of the righthand 
set is also a member of the 
lefthand set. A >- B is TRUE 
if every element of B is in A 
(that is, B <- A). 

This operation differs somewhat 
from the others in that it can 
specify as an operand a value 
or a variable rather than a set. 
It has the form 

scalar IN set 

where scalar can be a value 
(including a subrange) or a 
variable. The resulting value 
is TRUE if the scalar is of the 
same type as the type of the 
set, and is an element within 
the set. A IN B is TRUE if A 
is the same type as the set B 
and A is an element of B. 
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STATEMENTS 

Statements indicate actions to be performed. Unlike declarations, statements can be 
executed. They can appear only in a program, procedure, or function. 

A statement list is an ordered sequence of statements. In a statement list, a statement is 
separated from the one following it by a semicolon. Two consecutive semicolons indicate an 
empty statement, which means no action. 

Statements can be divided into four types depending on their purpose or nature: 

• Assignment 

• Structured 

• Control 

• Storage management 
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ASSIGNMENT STATEMENT 

The assignment statement assigns a value to a variable. 

The format of the assignment statement is: 

name := expression 

name Name of a variable previously declared. 

expression An expression that meets the requirements stated earlier in this 

chapter. Any constant or variable contained in the expression must 
be defined and have a value assigned. 

This statement is similar to the initialization part of the VAR declaration where you can 

assign an initial value to a variable. (For further information on initialization, refer to 

Variable Declaration in chapter 3.) The assignment statement allows you to change that value /"""""N 

at any point in the program. The expression is evaluated and the result becomes the current ^ 

value of the named variable. 

The variable cannot be: 

• A read-only variable. 

• A formal value parameter of the procedure that contains the assignment statement. 

• A bound variant record. 

• The tag field name of a bound variant record. f',, 

• A heap. 

• An array or record that contains a heap. 

The type of the expression must be equivalent to the type of the variable, with the 
exceptions discussed next. Both types can be subranges of equivalent types. 

A character, string, or substring variable can be assigned the value of a character 

expression, a string, or a substring. If you assign a value that is shorter than the 

variable or substring to which it is being assigned, spaces are added to the right of the ^''\. 

shorter string to fill the field. If you assign a value that is longer than the variable or .. 

substring, the value is truncated on the right. Assigning strings or substrings that overlap *~>" 

is not a valid operation, for example, STRING_1 :- STRING_1 ( 3 , 7 ) ; results are unpredictable. 
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If the variable is a pointer, its scope must be less than or equal to the scope of the data 
to which it is pointing. For example, a static pointer variable should not point to an 
automatic variable local to a procedure. When the procedure is left, the pointer variable 
will be pointing at undefined data. 

A pointer to a bound variant record can be assigned a pointer to a variant record that is not 
bound and is otherwise equivalent. 

An adaptable pointer can be assigned either a pointer to a type to which it can adapt, or an 
adaptable pointer than has been adapted to one of those types. Both the type of the 
expression and its value are assigned, thus setting the current type of the adaptable pointer. 

Any fixed pointer except a pointer to sequence can be assigned a pointer to cell. After the 
assignment, the #LOC function (described in chapter 6) performed on the fixed pointer would 
return the same value as the pointer to cell. 

A pointer to cell can be assigned any pointer type. The value assigned is a pointer to the 
first cell allocated for the variable to which the pointer being assigned points. 

When assigning pointers, remember that generally the object of a pointer has a different 
lifetime than the pointer variable. Automatic variables are released when the block in which 
they are declared is through being executed. Allocated variables no longer exist when they 
are explicitly released with the FREE statement. An attempt to reference a variable beyond 
its lifetime causes an error and unpredictable results to occur. 

A variant record can be assigned a bound variant record of types that are otherwise 
equivalent. 

The colon (:) and equals sign (») together are called the assignment operator. When used as 
the assignment operator, there can be no spaces or comments between the two symbols. 
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STRUCTURED STATEMENTS 

A structured statement is one that actually contains one or more statements* The statements 
contained in a structured statement are called, collectively, a statement list. The 
structured statement determines when the statement list contained in it will be executed. 

There are four structured statements: 

BEGIN Provides a logical grouping of statements that performs a specific function. 

FOR Executes a list of statements while a variable is incremented or decremented 
from an initial value to a final value. 

REPEAT Executes a list of statements until a specified condition is true. The test 
is made after each execution of the statements. 

WHILE Executes a list of statements while a specified condition is true. The test 
is made before each execution of the statements. 



■^y 



BEGIN Statement 

The BEGIN statement executes a single statement list once; there is no repetition. This 
statement provides for a logical grouping of statements that performs a particular function 
and can improve readability. 

The format of the BEGIN statement is: 

{ /label/-! 
BEGIN 

statement list; 
END I /label/ ); 

label Name that identifies the BEGIN statement and the. statement list 

within it. Use of labels is optional. If a label is used before 
BEGIN, it is not required after END but is encouraged. If labels are 
used in both places, they must match. The label name must be unique 
within the block in which it is used. 

statement list One or more statements. 

Declarations are not allowed within the BEGIN statement. Execution of the BEGIN statement 
ends when either the last statement in the list is executed or control is explicitly 
transferred from within the list. 
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FOR Statement 

The FOR statement executes a statement list repeatedly as a special variable ranges from an 
initial value to a final value. There are two formats for the FOR statement: one that 
increments the variable and one that decrements the variable. 

The format that increments" the variable is : 



f*\, 



I /label/ I 

FOR name :■ initial_yalue TO final_value DO 

statement list; 
FOREND i /label/ 1; 

The format that decrements the variable is: 

{/label/) 

FOR name :- initial_value DOWNTO final_value DO 

statement list; 
FOREND ( /label/ }; 



o 



label 



initial value 



final value 



Name that identifies the FOR statement and the statement list in 
it. Use of labels is optional. If a label is used before FOR, 
it is not required after FOREND but is encouraged. If labels are 
used in both places, they must match. The label name must be 
unique within the block in which it is used. 

Name of the variable that controls the number of repetitions of 
the statement list. It keeps track of the number of iterations 
performed or the current position within the range of values. 

Scalar expression specifying the initial value assigned to the 
variable. 

Scalar expression specifying the final value to be assigned to 
the variable if the statement ends normally. If the statement 
ends abnormally or as the result of an EXIT statement, this may 
not be the actual final value. 



"*> 



statement list 



One or more statements. 



The variable, initial value, and final value must be of equivalent scalar types or subranges 
of equivalent types. The variable cannot be assigned a value within the statement list, or 
be passed as a reference parameter to a procedure called within the statement list. Either 
condition causes a fatal compilation error. The variable cannot be an unaligned component of 
a packed structure. 



o 
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When CYBIL encounters a FOR statement that Increments (one containing the TO clause), it 
evaluates the initial value and final value. If the initial value is greater than the final 
value, the FOR statement ends and execution continues with the statement following FOREND; 
the statement list is not executed. If the initial value is less than or equal to the final 
value, the initial value is assigned to the control variable and the statement list is 
executed. Then, the control variable is incremented by one value and, for each increment, 
the statement list is executed. This sequence of actions continues through the final value. 
For example, the statement 

FOR i - 1 TO 5 DO 



FOREND; 

causes the statement list to be executed five times, that is, while I takes on values from 1 ^ — v 
through 5. Then the FOR statement ends and execution continues with the statement following i ) 
FOREND. % -^/' 

When CYBIL encounters a FOR statement that decrements (one containing the DOWNTO clause), it 
performs essentially the same process. If the initial value is less than the final value, 
the FOR statement ends and execution continues with the statement following FOREND. If the 
initial value is greater than or equal to the final value, the initial value is assigned to 
the control variable and the statement list is executed. The control variable is decremented 
by one value and, for each decrement, the statement list is executed. When the control 
variable reaches the final value and the statement list is executed the last time, the FOR 
statement ends. 

The initial value and final value expressions are evaluated once, when the statement is tl j 

entered; the values are then held in temporary locations. Thus, subsequent assignments to \ / 
initial value and final value have no effect on the execution of the FOR statement. 



When a FOR statement completes normally, the value of the control variable, is that of the 
final value specified in the statement. This may not be the case if the statement ends 
abnormally or ends as a result of an EXIT statement. 

Examples: 

Integer values are often used in FOR statements, but any scalar type can be used. The 

following example executes a statement list while the value of a character variable is ft ■ 

incremented. \^s 

FOR control :- 'a' TO 'z* DO 



FOREND; 

Each time the statement list is performed, the value of CONTROL increases by one value, 
following the normal sequence of alphabetic characters from A to Z; that is, after the 
statement list is executed once, the value of CONTROL changes to B, and so on until the list 
has been executed- 26 times. 
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REPEAT Statement 

The REPEAT statement executes a statement list repeatedly until a specific condition is true. 

The format of the REPEAT statement is: 

(/label/ I 
REPEAT 

statement list; 
UNTIL expression; 

label Name that identifies the REPEAT statement and the statement list in 

it. Use of the label before REPEAT is optional; a label is not 
permitted after UNTIL. The label name must be unique within the 
block in which it is used. 

statement list One or more statements. 

expression A boolean type expression. 

The statement list is always executed at least once. After the last statement in the list, 
the expression is evaluated. Every time the expression is FALSE, the statement list is 
executed again. When the expression is TRUE, the REPEAT statement ends and execution 
continues with the statement following the UNTIL clause. 

The statement list can contain nested REPEAT statements. 

Example: 

In this example, the statement list (mod operation and assignments) is executed once. If J 
is not equal to zero, it is executed again and continues until J is equal to zero. 



REPEAT 
k 
i 
J 



i MOD j; 

j; 

k; 



UNTIL j = 0; 
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WHILE Statement 



The WHILE statement executes a statement list repeatedly while a specific condition is true. 

The format of the WHILE statement is: 

! /label/ i 

WHILE expression DO 
statement list; 
WHILEND {/label/ I; 

label Name that identifies the WHILE statement and the statement list in 

it. Use of labels is optional. If a label is used before WHILE, it 

is not required after WHILEND but is encouraged. If labels are used 

in both places, they must match. The label name must be unique 

within the block in which it is used. /r - x 

expression A boolean type expression. V^ 

statement list One or more statements. 

If the boolean expression is evaluated as TRUE, the statement list is executed. After the 
last statement in the list, the expression Is again evaluated. Every time the expression is 
TRUE, the statement list is executed. When the expression is FALSE, the WHILE statement ends 
and execution continues with the statement following WHILEND. If the expression is FALSE in 
the initial evaluation, the statement list is never executed. 

Example: _ a"~~\ 

/ i. 

In this example, the expression TABLE [I] <> is evaluated; an element of the array TABLE is X -.-* 
compared to zero. While the expression is true (the element is not zero), I is incremented. 
This causes the next element of the array to be checked. When the expression is false, the 
statement list is not executed. Execution continues with the statement following WHILEND. I 
is the position of an element in the array that is zero. 

/check_for zero/ 
WHILE table [i] <> DO 
i := i + 1; 

WHILEND /check for zero/; 

- - ^ ^\ 

The preceding example assumes, of course, that the array contains an element with the value ^^ 
zero. If not, the WHILE statement list executes in an infinite loop. In either the WHILE 
expression or the statement list, there must be a check. One solution is to set a variable, 
TABLE_MAX, to the maximum number of elements in the array and check it before executing the 
statement list, as in: 

WHILE (i < table_max) AND (table [i] <> 0) DO 

Now both expressions must be true before the statement list is executed. If either is false, 
execution continues following WHILEND. 
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CONTROL STATEMENTS 

A control statement can change the flow of execution of a program by transferring control 
from one place in the program to another. 

There are five control statements: . 

IF Executes one statement list if a given condition is true; ends the statement or 
executes another statement list if the condition is false. 

CASE Executes one statement list out of a set of statement lists depending on the 
value of a given expression. 

CYCLE Causes the remaining statements in a repetitive statement (FOR, REPEAT, or WHILE) 
to be skipped and the next iteration of the statement to take place. 

EXIT Unconditionally stops execution within a procedure, function, or a structured 
statement (BEGIN, REPEAT, WHILE, and FOR). 

RETURN Returns control from a procedure or function to the point at which it was called. 

Procedure and function calls also transfer control of an executing program. Functions are 
discussed in chapter 6 and procedures are discussed in chapter 7. 

IF Statement 



The IF statement executes or skips a statement list depending on whether a given condition is 
true or false. 

The format of the IF statement is: 

IF expression THEN 

statement list; 
{ ELSEIF expression THEN 

statement list;!... 
{ELSE 

statement list;} 
IFEND; 

expression A boolean expression. 

statement list One or more statements. 

The ELSEIF and ELSE clauses are optional. The ELSEIF clause contains another test condition 
that is evaluated only if the preceding condition (expression) is false. The ELSE clause 
provides a statement list that is executed unconditionally when the preceding expression is 
false. 
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When an expression is evaluated as true, the statement list following the reserved word THEN 
is executed. When the list is completed, execution continues with the first statement 
following IFEND. If the expression is false, execution continues with the next clause or 
reserved word in the IF statement format (that is, ELSEIF, ELSE, or IFEND). 

If the next reserved word in the IF statement format is IFEND, execution continues with the 
first statement following it. 

If the next reserved word is ELSEIF, the expression contained in that clause is evaluated; if 
true, the statement list that follows is executed. Otherwise, execution continues with the 
next reserved word in the IF statement format. 

If the next reserved word is ELSE, the statement list that follows is always executed. You 
get to this point only if the preceding expression(s) is false. 

Additional IF statements can be contained (nested) in any of the statement lists. A 
consistent style of indentation or spacing greatly improves readability of such statements. 

If the ELSE clause is included in a nested IF statement, the clause applies to the most 
recent IF statement. 

Examples : 

In this example, Y is assigned to X if and only if X is less than Y. 

IF x < y THEN 

x := y; 
IFEND; 

In the next example, Z is always assigned one of the values 1, 2, 3, or 4 depending on the 
value of X. 



IF x <- 5 THEN 
z s- 1 

ELSEIF x 

Z !- 2 

ELSEIF x 

z := 3 

ELSE 

z := 4 



> 30 THEN 
-15 THEN 
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CASE Statement 

The CASE statement executes one statement list out of a set of lists based on the value of a 
given expression. 

The format of the CASE statement is: 

CASE expression OF 
= value 1 , value ) • • • = 

statement list; 
i = value ( , value ) . . . ■ 

statement list;)... 
{ELSE statement list;) 
CASEND; 



expression 



value 



A scalar expression. The expression must be of the same type as 
the value or values that follow. 

One or more constant scalar expressions or a subrange of constant 
scalar expressions. A subrange indicates that all of the values 
included in the subrange are acceptable values. If two or more 
values are specified, they are separated by commas. The values 
must be of the same type as the expression. Values can be in any 
order, not strictly sequential. Values must be unique within the 
CASE statement. 



%.„ai>y 



statement list 



One or more statements.' 



With one or more 



^^ 



You define a set of possible values that a variable or expression can have. 
of the values you associate a statement list using the format: 

= value = 

statement list; 

When the CASE statement is executed, the expression is evaluated and the statement list 
associated with the current value of the expression is executed. If the current value is not 
found among those in the CASE statement, execution continues with the ELSE clause. If ELSE 
is omitted and the value is not found in the CASE statement, the program is in error. After 
any one of the statement lists is executed, execution continues with the statement following 
CASEND. 
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Examples: 

In this example, I Is a variable that is expected to take on one of the values 1 through A. 
If its value is 1, the first statement list (X := X + 1) is executed and control goes to the 
statement following CASEND. If the value of I is 2, the second list is executed, and so on. 

CASE i OF 

x := x + 1; 
= 2 = 

x :■ x + 2; 
- 3 = 

x :» x + 3; 
. 4 « 

x := x + 4; 
CASEND; 

In this example, OPERATOR is a variable that is expected to take on values of PLUS, MINUS, or V. 
TIMES. Depending on the current value of OPERATOR, the associated statement is executed. 

CASE operator OF 
* plus = 

x := x + y; 
= minus = 

x :- x - y; 
■ times - 
x :■ x * y; 
CASEND; 
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CYCLE Statement 

The CYCLE statement can be included in the statement list of a repetitive statement (FOR, 
REPEAT, or WHILE) and causes any statements following it to be skipped and the next iteration 
of the repetitive statement to take place. 

The format of the CYCLE statement is: 

CYCLE /label/ 

label Name that identifies the repetitive statement in which the CYCLE 
statement is contained. 

The CYCLE statement is usually used in conjunction with an IF statement, as in: 

/label/ 

repetitive statement 

IF expression THEN 

CYCLE /label/; 

IFEND; 

remainder of statement list; 
end of repetitive statement; 

The IF statement tests for a condition that, if true, causes the CYCLE statement to be 
executed. Then the remaining statements of the repetitive statement are skipped and 
execution continues with whatever would normally follow the statement list, either another 
cycle of the repetitive statement or the next statement following the end of the repetitive 
statement. If the condition in the IF statement is false, the remaining statements in the 
repetitive statement are executed. 

If not contained in a repetitive statement, the CYCLE statement is diagnosed as a compilation 
error. 

Example: 

This example finds the smallest element of an array TABLE. On the first execution, X (the 
first element of the array) is assumed to be smallest. If X is smaller than succeeding 
elements of the array, the CYCLE statement is executed; the remainder of the statements are 
then skipped, and the next iteration of the FOR statement occurs. If an element smaller than 
X is found, the CYCLE statement is ignored and the rest of the statement list is processed; X 
is replaced by the smaller element. If N has not yet been reached, the FOR statement 
continues. When N is reached, X will contain the smallest element of the array. 

x :* table[l]; 

/find_smallest/ 
FOR k := 2 TO n DO 
IF x < table [k] THEN 

CYCLE /find_smallest/; 
IFEND; 

x :- table[k]; 
FOREND /find smallest/; 



Revision 01 Expressions and Statements 5-25 



o 
o 



J 



EXIT Statement 

The EXIT statement causes an unconditional exit from a procedure, function, or a structured 
statement (BEGIN, FOR, REPEAT, and WHILE). 

The format of the EXIT statement is: 

EXIT name; 

name Name that identifies the procedure, function, or statement. For a 
procedure or function, it is the procedure or function name. For a 
structured statement, it is the statement label; in this case the format 
could be shown as EXIT /label/. 

When the EXIT statement is encountered, execution of the named procedure, function, or 
statement is automatically stopped and execution resumes with the statement that would follow 
normal completion. For a procedure or function, it is the statement that would normally 
follow the procedure or function call. For a structured statement, it is the statement 
following the end of the structured statement (END, FOREND, UNTIL expression, and WHILEND). 

The EXIT statement must be within the scope of the procedure, function, or statement it 
names. Otherwise, it has no meaning and is diagnosed as a programming error. 

With a single EXIT statement, you can exit several levels of procedures or statements; they 

need not be exited separately. If the EXIT statement is executed in a nested recursive 

procedure, it is the most recent invocation of the procedure and any intervening procedures 

that are exited. ff~'\ 

RETURN Statement 

The RETURN statement completes the execution of a procedure or function and returns control 
to the program, procedure, or function that called it. 

The format of the RETURN statement is: 

RETURN; 

If omitted at the end of a procedure or function, the RETURN statement is assumed. 



V/ 
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STORAGE MANAGEMENT STATEMENTS 

Storage management statements allow you to manipulate components of sequence and heap types, 
and put variables in the run-time stack. 

There are five storage management statements: 

RESET Resets the pointer in a sequence or releases all the variables in a 

user-defined heap. 

NEXT Creates or accesses the next element of a sequence given a starting 

element. 

ALLOCATE Allocates storage for a variable in a heap. 

FREE Releases a variable from a heap. 

PUSH Allocates storage for a variable in the run-time stack. 

Sequences use the RESET and NEXT statements. Heaps use the RESET, ALLOCATE, and FREE 
statements. The run-time stack uses the PUSH statement. (Refer to Storage Types in chapter 
4 for further information on sequences and heaps.) 

In the NEXT, ALLOCATE, and PUSH statements, you must specify a pointer to the variable to be 
manipulated so that sufficient space can be allocated for that type. This pointer can be a 
pointer to a fixed type, a pointer to an adaptable type, or a pointer to a bound variant 
record type. Space is then allocated for a variable of the type to which the pointer can 
point. This pointer is also used to access the variable. When space is allocated, CYBIL 
returns the address of the variable to the pointer. Therefore, to reference a variable in a 
sequence, heap, or the run-time stack, you indicate the object of the pointer in the forms 
pointer_name * . 

If a fixed type pointer is specified, the statement uses a variable of the type designated by 
that pointer variable. If an adaptable type pointer or bound variant record type pointer is 
specified, you must also indicate the size of the adaptable type or the tag field of the 
variant record to be used. This causes a fixed type to be set and the adaptable or bound 
variant record pointer designates a variable of that fixed type. That particular fixed type 
is designated until it is reset by a subsequent assignment or another storage management 
statement. 
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To indicate the size of an adaptable pointer or the tag field of a bound variant record 
pointer, you use the format: 



pointer : [size] 
pointer 

size 



Name of an adaptable pointer variable or a bound variant record pointer 
variable* 

Fixed amount of space required for the variable designated by pointer. 
You set the size of the adaptable type the same way you specify the size 
of the corresponding unadaptable (fixed) type. For example, in a 
variable or type declaration, you specify the size of a fixed array with 
subscript bounds, usually a subrange of "scalar expression., 
scalar expression." You set the size of an adaptable array here using 
the same form. The forms used to set the size of all possible adaptable 
types are summarized as follows. For more detailed information, refer to 
the descriptions of the corresponding fixed types in chapter 4. 



Pointer Type 
Adaptable array 



Form Used to Set Size 



scalar expression .. scalar expression 



Adaptable string A positive integer expression specifying the length 
of the string 



Adaptable heap 



Adaptable sequence 



Adaptable record 



Bound variant 
record 



[I REP positive integer expression OF I fixed type 
name { ,|REP positive integer expression OF 5 fixed 
type name ) . • • ] 

[{REP positive integer expression OF I fixed type 
name j ,{REP positive integer expression OF) fixed 
type name ) . . . ] 

One of the forms used for an adaptable array, string, 
heap, or sequence 

A scalar expression or one or more constant scalar 
expressions followed by an optional scalar expression 



o 
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If an adaptable array had a lower bound specified in its original declaration, the lower 
bound specified here must match that value. For an adaptable record, the form used must be a 
value and type to which the record can adapt. For a bound variant record, the order, types, 
and values used must be valid for a variant of the record; all but the last of the 
expressions must be constant expressions. 
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Examples: 

This example declares a type that is an adaptable array named ADAPT_ARRAY. PTR is a pointer 
to that type. BUNCH is a heap with space for 100 integers. The heap BUNCH is reset; that 
is, any existing elements are released. Space is then allocated in the heap for a variable 
of the type designated by PTR. That variable is of type ADAPT_ARRAY (an array of integers) 
and it has fixed subscript bounds of from 1 through 15. PTR now points to that array. 

TYPE 

adapt_array = array [1..*] of integer; 
VAR 

ptr : * adapt_array, 

bunch : heap (rep 100 of integer); 

RESET bunch; 

ALLOCATE ptr : [1..15] IN bunch; 

The following example shows the setting of an adaptable sequence. Notice that two sets of 
brackets are required in the PUSH statement. 

VAR 

ptr : *SEQ (*); 
PUSH ptr: [[rep 10 of integer, rep 22 of char]]; 









o 
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The RESET statement operates on both sequences and heaps. In a sequence, it resets the 
pointer to the beginning of the sequence or to a specific variable within the sequence. In a 
heap, it releases all the variables in the heap. 

The RESET statement must appear before the first NEXT statement (for a sequence) or ALLOCATE 
statement (for a user-defined heap). This ensures that the sequence is at the beginning or 
the heap is empty. If space is reserved (by a NEXT or ALLOCATE statement) before the RESET 
statement, the program is in error. 

RESET in a Sequence 

This statement sets the current element being pointed to in a sequence; 

The format of the RESET statement in a sequence is: 

RESET sequence_pointer { TO variable_pointer ) 

sequence_pointer Name of a pointer to a sequence. This specifies the particular 
sequence. 

variable_pointer Name of a pointer to a particular variable within the sequence. 
If omitted, the pointer points to the first element of the 
sequence. 

The value of the pointer variable must have been set with a NEXT statement for the same .cf~~\ 

sequence or an error occurs. An error also occurs if the value of the pointer variable is f 

NIL. V_> 

The RESET statement must appear before the first occurrence of a NEXT statement to reset the 
sequence to its beginning; otherwise, the program is in error. 

RESET in a Heap 

This statement releases the variables currently in a heap. 

The format of the RESET statement in a heap is: fT '""N. 

RESET heap 

heap Name of a heap type variable. 

Space for the variables is released and their values become undefined. 

The RESET statement must appear before the first occurrence of an ALLOCATE statement for a 
user-defined heap to ensure that the heap is empty; otherwise, the program is in error. 
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NEXT Statement 

The NEXT statement sets the specified pointer to designate the current element of the 
sequence and then makes the next element in the sequence the current element. This 
essentially moves the pointer along the sequence allowing you to assign values to and access 
elements. 

The format of the NEXT statement is: 

NEXT pointer I : [size] ) IN sequence_pointer 

pointer Name of a pointer to a fixed type, pointer to an adaptable type, 

or pointer to a bound variant record type. The type being 
pointed to by the pointer is the type of the variable in the 
sequence. These pointers are described in detail under Storage 
Management Statements earlier in this chapter. 

size Size of an adaptable type or tag field of a bound variant record 

type. If omitted, the pointer must be a pointer to a fixed 
type. The forms used to specify size are described in detail 
under Storage Management Statements earlier in this chapter. 

sequence_pointer Name of a pointer to a sequence. This specifies the particular 
sequence. 

After a RESET statement, the current element is always the first element of the sequence. A 
NEXT statement assigns to the specified pointer the address of the current (first) element, 
and then makes the next element (the second) the new current element. Thus, the order of 
variables in a sequence is determined by the order in which the NEXT statements are executed. 

If the NEXT statement causes the new element to be outside the bounds of the sequence, the 
pointer is set to NIL. Before attempting to reference an element in a sequence, check for a 
NIL pointer value. Using a pointer variable with a value of NIL to access an element causes 
an error to occur. 

The type of the pointer specified when data is retrieved from the sequence must be equivalent 
to the type of the pointer used when the same data was stored in the sequence; otherwise, the 
program is in error. 
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ALLOCATE Statement 

The ALLOCATE statement allocates storage space for a variable of the specified type In the 
specified heap and then sets the pointer to point to that variable. 

The format of the ALLOCATE statement is: 

ALLOCATE pointer { : [size]) UN heap) 

pointer Name of a pointer to a fixed type, adaptable type, or bound variant 
record type. These pointers are described in detail under Storage 
Management Statements earlier in this chapter. 

size Size of an adaptable type or tag field of a bound variant record 

type. If omitted, the pointer must be a pointer to a fixed type. 
The forms used to specify size are described in detail under Storage 
Management Statements earlier in this chapter. 

heap Name of a heap type variable. If omitted, the. default heap is 

assumed. 

If there is not enough space for the variable to be allocated, the pointer is set to NIL. 
Before attempting to reference a variable in a heap, check for a NIL pointer value. Using a 
pointer variable with a value of NIL to access data causes an error to occur. 

The RESET statement must appear before the first occurrence of an ALLOCATE statement for a 
user-defined heap to ensure that the heap is empty; otherwise, the program is in error. 
(This is not allowed for the default heap. ) 

The lifetime of a variable that is allocated using the storage management statements is the 
time between the allocation of storage (with the ALLOCATE statement) and the release of 
storage (with the FREE statement). A variable allocated using an automatic pointer must be 
explicitly freed (using the FREE statement) before the block is left, or the space will not 
be released by the program. When the block is left, the pointer no longer exists and, 
therefore, the variable cannot be referenced. If the block is entered again, the previous 
pointer and the variable referenced by the pointer cannot be reclaimed. 
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FREE Statement 

The FREE statement releases the specified variable from the specified heap. 
The format of the FREE statement is: 
FREE pointer I IN heap ) 

pointer Name of the pointer variable that designates the variable to be released. 

heap Name of a heap type variable. If omitted, the default heap is assumed. 

The variable's space in the heap is released and its value becomes undefined. The pointer 
variable designating the released variable is set to NIL. If the specified variable is not 
currently allocated in the heap, the effect is undefined. 

Using a pointer variable with the value NIL to access data causes an error to occur. 
Releasing the NIL pointer is also an error. 
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PUSH Statement 

The PUSH statement allocates storage space on the run-time stack for a variable of the 
specified type and then sets the pointer to point to that variable. 

The format of the PUSH statement is: 

PUSH pointer I : [size] I 

pointer Name of a pointer to a fixed type, adaptable type, or bound variant 
record type. These pointers are described in detail under Storage 
Management Statements earlier in this chapter. 

size Size of an adaptable type or tag field of a bound variant record 

type. If omitted, the pointer must be a pointer to a fixed type. 
The forms used to specify size are described in detail under Storage (* \ 
Management Statements earlier in this chapter. \> jf' 

If there is not enough space for the variable to be allocated, the pointer is set to NIL. 
The value of the variable that has just been allocated is undefined until a subsequent 
assignment to the variable is made. 

You cannot release space on the run-time stack explicitly. It is released automatically when 
the procedure containing the PUSH statement completes. At that time, space for the variable 
is released and its value becomes undefined. 



Example: 



\ 



This example shows the declaration of a pointer variable named ARRAY_PTR that points to an \^' 

adaptable array. The PUSH statement allocates space in the run-time stack for a fixed array 
of from 1 through 20 elements. Elements of the array can be referenced by ARRAY_PTR " [ i ] 
where i is an integer from 1 through 20. 



VAR array_ptr : -array [l..*l of integer; 
PUSH array_ptr : [1..20]; 



%^y 
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A function is one or more statements that perform a specific action and can be called by name 
from a statement elsewhere in a program. A reference to a function causes actual parameters 
in the calling statement to be substituted for the formal parameters in the function 
declaration and then the function's statements to be executed. Usually the function computes 
a value and returns it to the portion of the program that called it. 

A function differs from a procedure in that the value returned for a function replaces the 
actual function reference within the statement. A function is a valid operand in an 
expression; the value returned by the function replaces the reference and becomes the operand. 

The value of a function is the last value assigned to it before the function returns to the 
point where it was called. The reason for its return doesn't matter; it could complete 
normally or abnormally. If the function returns for any reason before a value is assigned to 
the function name, results are undefined. 

Functions can be recursive; that is, a function can call itself. In that case, however, 
there must be some provision for ending the calls. 

You can call functions that are already defined in the language or you can define your own 
functions. This chapter describes both. 

STANDARD FUNCTIONS 

The functions described here are standard CYBIL functions. They can be used safely in 
variations of CYBIL available on other operating systems. 

The functions are described in alphabetical order according to the first alphabetic character. 

$CHAR FUNCTION 

The $CHAR function returns the character whose ordinal number within the ASCII collating 
sequence is that of a given expression. 

The format of the $CHAR function call is: 

$CHAR(expression) 

expression An integer expression whose value can be from through 255. 

If the value of the integer expression is less than or greater than 255, an error occurs. 
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$INTEGER FUNCTION 

The $INTEGER function returns the integer value of a given expression. 
The format of the $INTEGER function call is: 
$INTEGER(expression ) 

expression An expression of type integer, subrange of integer, boolean, 
character, or ordinal. 

If the expression is an integer expression, the value of that expression is returned. 

If the expression is a boolean expression, (zero) is returned for a false expression and 1 
is returned for a true expression. 

f \ 
If the expression is a character expression, the ordinal number of the character in the ASCII ;•..•" 

collating sequence is returned. 

If the expression is an ordinal expression, the ordinal number associated with that ordinal 
value is returned. The value returned for the first element of an ordinal type is zero, the 
second element is one, and so on. 

#L0C FUNCTION 

The #L0C function returns a pointer to the first cell allocated for a given variable. /f"~\ 

The format of the #L0C function call is: %.^S 

#L0C(name) 

name Name of a variable. 
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LOWERBOUND FUNCTION 

The LOWERBOUND function returns the lower bound of an array's subscript bounds. 

The format of the LOWERBOUND function call is: 

LOWERBOUND (array ) 

array An array variable or the name of a fixed array type. 

The type of the value returned is the same as the type of the array's subscript bounds. 

Example: 

Assuming the following declaration has been made 

"^ VAR 

x : array [1..100] of boolean, 
y : array ['a'.-'t'] of integer; 

the value of LOWERBOUND(X) is 1; the value of LOWERBOUND(Y) is 'a'. 

LOWERVALUE FUNCTION 

The LOWERVALUE function returns the smallest possible value that a given variable or type can 
have. 

The format of the "LOWERVALUE function call is: 

LOWERVALUE (name) 

name A scalar variable or name of a scalar type. 

The type of the value returned is the same as the given type. 

Examples : 

Assuming the following declaration has been made 

VAR 

dozen : 1 . .12; 

the value of LOWERVALUE (DOZEN) is 1. 

After the declarations 

TYPE 

t = (first, second, third); 
VAR 

v : t; 

the value of LOWERVALUE (V ) is FIRST and the value of LOWERVALUE(T) is FIRST. 
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warm := spring; 
cold := PRED (warm); 



#PTR FUNCTION 
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PRED FUNCTION 

The PRED function returns the predecessor of a given expression. 

The format of the PRED function call is: 

PRED(expression) 

expression A scalar expression. 

If the predecessor of the expression does not exist, the program is in error. 

Example: 

The following example declares two variables, WARM and COLD, each of which can take on 

ordinal values of the type SEASONS. The variable WARM is assigned the value SPRING while the 

variable COLD is assigned the value WINTER. \ ^ 

TYPE 

seasons * (winter, spring, summer, fall); 

VAR 

warm : seasons; 
cold : seasons; 



o 



The #PTR function returns a pointer that can be used to access the object of a relative 
pointer. 

The format of the #PTR function call is: 

#PTR(pointer_name { , parent_name ) ) 

pointer name Name of the relative pointer variable. 

parent_name Name of the variable that contains the components being designated by Vy' 
relative pointers. If omitted, the default heap is used. The 
variable can be a string, array, record, heap, or sequence type 
(either fixed or adaptable). 

Relative pointers cannot be used to access data directly. The #PTR function converts a 
relative pointer to a pointer in order to reference the object of the relative pointer. 

The type of the object pointed to by the returned pointer is the same as the type of the 
object pointed to by the relative pointer. If the type of the parent variable associated 
with the specified relative pointer is not equivalent to the type of the specified parent 
variable, an error occurs. 

For further information on relative pointers, refer to Pointer Types in chapter 4. 



6-4 CDCNET CYBIL Revision 01 



c 



jf> 



o 



#REL FUNCTION 

The #REL function returns a relative pointer. 

The format of the #REL function call is: 

#REL(pointer_name { , parent_name i ) 

point er_name Name of the direct pointer variable. 

parent_name Name of the variable that contains the components being designated by 
relative pointers. If omitted, the default heap is used. The 
variable can be a string, array, record, heap, or sequence type 
(either fixed or adaptable). 

The type of the relative pointer's object is the same as the type of the given direct 
pointer's object. (This type was specified in the VAR declaration of the relative pointer 
variable.) The parent type of the relative pointer's object is the same as the type of the 
specified parent variable. 

If the pointer specified in the function call does not designate an element of the parent 
variable, the result is undefined. 

Relative pointer values can be generated solely through this function. For further 
information on relative pointers, refer to Pointer Types in chapter 4. 

#SIZE FUNCTION 

The #SIZE function returns the number of cells required to contain a given variable or a 
variable of a specified type. 

The format of the //SIZE function call is: 

# SIZE (name) 

name Name of a variable, fixed record type, or bound variant record type. 

If the name of a bound variant record type is specified, the variant that requires the 
\ largest size is used. 



o 
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STRLENGTH FUNCTION 

The STRLENGTH function returns the length of a given string. 

The format of the STRLENGTH function call is: 

STRLENGTH(string) 

string A string variable, name of a string type, or adaptable string reference. 

For a fixed string, the allocated length is returned as an integer subrange. For an 
adaptable string, the current length is returned. 

SUCC FUNCTION 

The SUCC function returns the successor of a given expression. / 

The format of the SUCC function call is: 
SUCC (expression) 

expression A scalar expression. 
If the successor of the expression does not exist, the program is in error. 

Example: 

/O- 
The following example declares two variables, HOT and COOL, each of which can take on ordinal ■?'■ J 

values of the type SEASONS. The variable HOT is- assigned the value SUMMER while the variable \~ s 

COOL is assigned the value FALL. 

TYPE 

seasons ■ (winter, spring, summer, fall); 

VAR 

hot : seasons; 
cool : seasons; 

hot :•• summer; /f ~\ 

cool :- SUCC (hot); \ ,/ 
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UPPERBOUND FUNCTION 

The UPPERBOUND function returns the upper bound of an array's subscript bounds. 
The format of the UPPERBOUND function call is: 
UPPERBOUND (array)" 

array An array variable or the name of a fixed array type. 
The type of the value returned is the same as the type of the array's subscript bounds. 

Examples : 

Assuming the following declaration has been made 

VAR 

x : array [1..100] of boolean, 
y : array ['a'..'t'] of integer; 

the value of UPPERBOUND(X) is 100; the value of UPPERBOUND(Y) is *t'. 

In the following example, the value of UPPERBOUND(TABLE) is 50. 

VAR 

table : "array [l..*]of cell; . 

allocate table : [1..50]; 
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UPPERVALUE FUNCTION 

The UPPERVALUE function returns the largest possible value that a given variable or type can 
have. 

The format of the UPPERVALUE function call is: 

UPPERVALUE (name) 

name A scalar variable or name of a scalar type. 

The type of the value returned is the same as the given type. 

Examples: 

Assuming the following declaration has been made 

VAR 

dozen : 1. .12; 

the value of UPPERVALUE (DOZEN) is 12. 

After the declarations 

TYPE 

t = (first, second, third); 

VAR 
v : t; 

the value of UPPERVALUE(V) is THIRD and the value of UPPERVALUE(T) is THIRD. 
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USER-DEFINED FUNCTIONS 

FUNCTION DECLARATION 

You define your own functions with function declarations. 

The format used for specifying a function is: 

FUNCTION I (attributes] 1 name I (f ormal_parameters ) } : result_type; + 

I declaration_list| 

statement_list 
FUNCEND ( name } ; 

attributes -1 " 1 " One or more of the following attributes. If more than one are 
specified, they are separated by commas. 

Attribute Meaning 

XREF The function has been compiled in a different module. In 
this case, the function declaration can contain the name 
and formal parameters, but no declaration list or 
statement list. In the other module, the function must 
have been declared with the XDCL attribute and an 
identical parameter list. If omitted, the function must 
be defined within the module where it is referenced. 

XDCL The function can be referenced from outside of the module 
in which it is located. This attribute can be included 
only in a function declared at the outermost level of a 
-module; it cannot be contained in a program, procedure, 
or another function. Other modules that reference this 
function must contain the same function declaration with 
the XREF attribute specified. 

If no attributes are specified, the function is assumed to be in the 
same module in which it is called. 



c 
c 



+ Some variations of CYBIL available on other operating systems allow an additional option, 
the alias name, in a function declaration. If included in a CYBIL program run on CDCNET, 
this parameter is ignored. 

++ A variation of CYBIL available on another operating system allows an addition attribute, 
the #GATE attribute. CDCNET CYBIL accepts the #GATE attribute, but it is ignored. 
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Name of the function. The function name is optional following 
FUNCEND. 



formal_parameters One or more parameters in the form: 

VAR name i.namel... : type 

i , name |,name)... : type).. 



result_type 

declaration_list 
statement list 



and /or: 

name I, name}... : type 

{.name {,name)..« : type)... 

The first form is called a reference parameter; the second form 
is called a value parameter. There is essentially no difference 
between them in the context of a function. However, procedures 
(and programs) do treat them differently. Both kinds of 
parameters can appear in the formal parameter list; if so, they 
are separated by semicolons (for example, I: INTEGER; VAR 
A: CHAR). Reference and value parameters are discussed in more 
detail later in this chapter under Parameter List. 

The type of the result to be returned. It can be any fixed 
scalar, pointer, or cell type. 

Zero or more declarations. 

One or more statements. 



In an assignment statement within a function, the lefthand side of the statement (the 
variable to receive the value) cannot be: 

• A nonlocal variable. 

• A formal parameter of the function. 

• The object of a pointer variable. 
User-defined functions cannot contain: 

• Procedure call statements that call user-defined procedures. 

• Parameters of type pointer to procedure. 

• ALLOCATE, FREE, POSH, or NEXT statements that have parameters that are not local 
variables. 



o 
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PARAMETER LIST 

A parameter list is an optional list of variable declarations that appears in the first 
statement of the function declaration. In the function declaration format shown earlier, 
they are shown as "f ormal_parameters. " Declarations for formal parameters must appear in 
that first statement; they cannot appear in the declaration list in the body of the function. 

A parameter list allows you to pass values from the calling program to the function. When a 
call is made to a function, parameters called actual parameters are included with the 
function name. The values of those actual parameters replace the formal parameters in the 
parameter list. Wherever the formal parameters exist in the statements within the function, 
the values of the corresponding actual parameters are substituted. For every formal 
parameter in a function declaration, there must be a corresponding actual parameter in the 
function call. 

There are two kinds of parameters: reference parameters and value parameters. A reference 
*?\ parameter has the form: 

VAR name j,name)... : type 

| ,name f, name J... : type)... 

A value parameter has the form: 

name j , name ) . . . : type 

I , name j,name)..« : type)... 



o 






In procedures, reference parameters and value parameters cause different actions to be taken; 
in functions, however, both kinds of parameters have the same effect. (In a procedure, the 
value of a reference parameter can change during execution of the procedure; a value 
parameter cannot change.) In a function, neither reference parameters nor value parameters 
can change in value. A formal reference parameter can be any fixed or adaptable type. A 
formal value parameter can be any fixed or adaptable type, except a heap or an array or 
record that contains a heap. 

Reference parameters and value parameters can be specified in many combinations. When both 
kinds of parameters appear together, they must be separated by semicolons. Parameters of the 
same type can also be separated by semicolons instead of commas, but in this case, VAR must 
appear with each reference parameter. All of the following parameter lists are valid. 

VAR i, j : integer; a, b : char; 

VAR i : integer; VAR j : integer; a : char; b : char; 

a : char; VAR i, j : integer; b : char; 

VAR i : integer, j : integer; a : char, b : boolean; 

In each of the preceding examples, I and J are reference parameters; A and B are value 
parameters. 
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REFERENCING A FUNCTION 

The call to the function is usually contained in an expression. The call consists of the 
function name (as given in the function declaration) and any parameters to be passed to the 
function in the following format: 

name ( { actual_parameters 1 ) 

name Name of the function. 



actual_parameters 



Zero or more expressions or variables to be substituted for 
formal parameters defined in the function declaration. If two or 
more are specified, they are separated by commas. They are 
substituted one-for-one based on their position within the list; 
that is, the first actual parameter replaces the first formal 
parameter, the second actual parameter replaces the second formal 
parameter, and so on. For every formal parameter in a function 
declaration, there must be a corresponding actual parameter in 
the function call. 

If there were no formal parameters specified in the function 
declaration, there can be no actual parameters included in the 
function call. However, left and right parentheses are required 
to indicate the absence of parameters. In this case, the call is: 

name( ) 

The function can be anywhere that a variable of the same type could be. The value returned 
by a function is the last value assigned to it. If control is returned to the calling point 
before an assignment is made, results are undefined. 

The only types that can be returned as values of functions are the basic types: scalar, 
pointer, and cell. 



V ... • 
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Example: 

This function finds the smaller of two integer values represented by formal value parameters 
A and B. The smaller value is assigned to MIN, the name of the function, and that integer 
value is returned. 

FUNCTION min (a, b : integer) : integer; 
IF a > b THEN 

min :■ b; 
ELSE 

min :» a; 
IFEND; 
FUNCEND min; 

The preceding function could be called using the following reference. 

smaller :- min(f irst, second); 

The value of the variable FIRST is substituted for the formal parameter A; the value of 
SECOND is substituted for B. The value returned, the smaller value, replaces the entire 
function reference; the variable SMALLER is assigned the smaller value. 
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PROCEDURES 
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A procedure is one or more statements that perform a specific action and can be called by a 
single statement. A procedure allows you to associate a name with the statement list so that 
by specifying the name itself as if it were a statement, you cause the list to be executed. 
Declarations can be included and take effect when the procedure is called. A procedure call 
can optionally cause actual parameters included in the call to be substituted for the formal 
parameters in the procedure declaration before the procedure's statements are executed. 

A procedure differs from a function in that: 

• A procedure can, but does not always, return a value. 

• The call to a procedure is the procedure's name itself; a function call by contrast 
must be part of an expression in a statement. 

• There can be no value assigned to the procedure name as there is to a function name. 

You can call procedures that are already defined in the language or you can define your own 
procedures. This chapter describes both. 

STANDARD PROCEDURES 

The STRINGREP procedure described here is a standard CYBIL procedure. It can be used safely 
in variations of CYBIL available on other operating systems. The next section in this 
chapter, System-Dependent Procedures, describes procedures that may not always be available. 
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STRINGREP PROCEDURE 

The STRINGREP procedure converts one or more elements to a string of characters, then returns 
that string and the length of the string. 

The format of the STRINGREP procedure call is: 

STRINGREP(string_name, length, element { .element I... ) 

stringjname Name of a string type variable* (It can be specified as a 

' substring.) The result is returned here. It will contain the 
character representations of the named element(s). 

length Name of an integer variable. Its value will be the length in 

characters of the resulting string variable, string_name. It will be 
less than or equal to the declared length of the string variable. 

element Name of the element to be converted. The element can be a scalar, \.„J 
pointer, or string type. Formats for specifying particular types and 
rules for conversion of those types are discussed in more detail 
later in this chapter. 

The named elements are converted to strings of characters. Those strings are then 
concatenated and returned left-justified in the named string variable. The length of the 
string variable is also returned. If the result of concatenating the string representations 
is longer than the length of the string variable, the result is truncated on the right; the 
length that will be returned is the length of the string variable. 

Each individual element is converted and placed in a temporary field before concatenation A ) 

with other elements. The length of the temporary field can be specified as part of the V / 

element parameter that is described in the following sections. Generally, numeric values are 

written right-justified in the temporary field with spaces added on the left to fill the 

field, if necessary. String or character values are written left-justified in the temporary 

field with spaces added on the right to fill the field, if necessary. For both numeric and 

alphabetic values, the field is filled with asterisk characters if it is too short to hold 

the resulting value. The value of the field length, when specified, must be greater than or 

equal to zero; otherwise, an error occurs. 
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The following paragraphs describe how the STRINGREP procedure converts specific types and how 
they appear in the temporary fields* 

Integer Element 

The format for specifying an integer element is: 

expression !: length) {: //(radix) 1 

expression An integer expression to be converted. 

length A positive integer expression specifying the length of the temporary 
field. The length must be greater than or equal to 2. If omitted, 
the temporary field is the minimum size required to hold the integer 
value and the leading sign character. 

radix Radix of expression. Possible values are 2, 8, 10, and 16. If 

omitted, 10 (decimal) is assumed. 

The value of the integer expression is converted into a string representation in the desired 
radix. The resulting string representation is right- justified in the temporary field. If 
the expression is positive, a space precedes the leftmost significant digit. If the integer 
expression is negative, a minus sign precedes the leftmost significant digit. The leading 
space or hyphen must be considered a part of the length. (Thus, the length must be greater 
than or equal to 2 in order to hold the sign character and at least one digit. ) 

If a field length larger than necessary is specified, spaces are added on the left to fill 
the field. If the field length is not long enough to contain all digits and the sign 
character, the field is filled with a string of asterisk characters. If the field length is 
less than or equal to zero, an error occurs. 

Character Element 



The format for specifying a character element is: 

expression { : length ) 

expression A character expression to be converted. 

length A positive integer expression specifying the length of the temporary 
field. If omitted, a length of 1 is assumed. 

A single character is left-justified in the temporary field. If a field length larger than 
necessary is specified, spaces are appended to the right to fill the field. Including a 
radix for a character element causes a compilation error. 
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Boolean Element 

The format for specifying a boolean element is: 

expression 1 : length I 

expression A boolean expression to be converted. 

length A positive integer expression specifying the length of the temporary 
field. If omitted, a length of 5 is assumed. 

Either of the five-character strings ' TRUE' or 'FALSE* is left-justified in the temporary 
field. If a field length larger than necessary is specified, spaces are appended on the 
right to fill the field. If the field length is not long enough to contain all five 
characters, the temporary field is filled with asterisk characters. Including a radix for a 
boolean element causes a compilation error to occur. 

Ordinal Element *— *" 

The integer value of an ordinal expression is handled the same way as an integer element. 
Refer to the discussion under Integer Element earlier in this chapter. 

Subrange Element 

A subrange element is handled the same way as the element of which it is a subrange. 






Pointer Element 

The format for specifying a pointer element is: 

pointer (: length) f: #( radix ) } 

pointer A pointer reference to be converted. 

length A positive integer expression specifying the length of the temporary 
field. If the field length is omitted, the temporary field is the 
minimum size required to contain the pointer value. ^ 

radix Radix of the pointer value. Possible values are 2, 8, 10, and 16. V^y' 

For CDCNET CYBIL, the default radix is 16. 

The value of a pointer expression is converted into a string representation in the specified 
radix. It is right-justified in the temporary field. If a field length larger than 
necessary is specified, spaces are added on the left to fill the field. . If the field length 
is not long enough to contain all the digits, the field is filled with a string of asterisk 
characters. ■ 
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String Element 

The format for specifying a string element is: 

expression i : length ) 

expression A string variable, string constant, or substring to be converted. 

length A positive integer expression specifying the length of the temporary 
field. If omitted, the field is the minimum size required to contain 
the string expression. 

A string expression is left-justified in the temporary field. If a field length larger than 
necessary is specified, spaces are appended to the right to fill the field. If the field 
length is shorter than the length of the string, the temporary field is filled with a string 
of asterisk characters. 

SYSTEM-DEPENDENT PROCEDURES 

Of the procedures described here, some may be available in variations of CYBIL on other 
operating systems, but they are not guaranteed to be. Keep in mind that programs using these 
procedures may not be transportable to other systems. 

The functions are described in alphabetic order according to the first alphabetic character. 

#CONVERT_POINTER_TO_PROCEDURE Procedure 

The #CONVERT_POINTER_TO_PROCEDURE procedure converts a variable of the type pointer to 
procedure that has no parameters to a variable of the type pointer to procedure that can have 
parameters. This procedure may not be available on variations of CYBIL that execute on other 
operating systems. 

The format of the #CONVERT_POINTER_TO_PROCEDURE procedure call is: 

#CONVERT_POINTER_TO_PROCEDURE (pointer_l , pointer_2 ) 

pointer 1 Name of a pointer to procedure variable with no parameters. 

pointer_2 Name of a pointer to procedure variable with an arbitrary parameter 
list. 
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#SCAN Procedure 

The #SCAN procedure scans a string from left to right until one of a specified set of 
characters is found or the entire string has been searched. This procedure may not be 
available on variations of CYBIL that execute on other operating systems. 

The format of the #SCAN procedure call is: 

#SCAN(scan_variable, string, index, result_yariable ) 



scan variable 



string 
index 



result variable 



Name of the variable that indicates the character values for 
which the string is scanned. The variable must be 256 bits 
long. Each bit of the variable represents the character in the 
corresponding position of the ASCII character set. If a bit is 
set, the corresponding character is one for which the procedure 
scans • 

String or substring to be scanned. 

Name of an integer variable. If a character is found during 
scanning, the index of that character is returned in this 
variable. The index of a character is that character's position 
in the string; for example, the index value of the first 
character is 1. If no matching values are found, the variable 
contains the string length plus 1. 

Name of a boolean variable, which is set to TRUE if the scan 
finds one of the selected characters. 






The procedure looks for any one character from a set of characters specified in a 256-bit 
variable. Bits are set in the variable to correspond to the characters in the same positions 
in the ASCII character set collating sequence. A set bit indicates that the procedure scans 
the string for the corresponding character. The procedure stops if it finds one of the 
characters specified. It returns the position of the character that caused termination and 
the boolean variable that indicates whether a character was found. 
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^TRANSLATE Procedure 

The ^TRANSLATE procedure translates each character in a source field according to a 
translation table, and transfers the result to a destination field. This procedure may not 
be available on variations of CYBIL that execute on other operating systems. 

The format of the ^TRANSLATE procedure call is: 

#TRANSLATE( table, source, destination) 

table Name of a string variable whose length is 256 characters. This 

variable defines the translation table. 

source String to be translated. 

destination Name of a string variable into which the translated string is 
transferred. 

Translation of the string occurs from left to right with each source byte used as an index 
into the translation table. Translated bytes from the table are stored in the destination 
field. 

If the length of the source field is less than the length of the destination field, 
translated spaces fill the destination field. If the source field is larger than the 
destination field, the rightmost characters of the source field are truncated. 
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A heap* 

An array or record that contains a heap* 
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#UNCHECKED_CONVERSION Procedure 

The #UNCHECKED_CONVERSION procedure copies directly from a source field to a destination 
field. This procedure may not be available on variations of CYBIL that execute on other 
operating systems. 

The format of the #UNCHECKED_CONVERSION procedure call is: 

#UNCHECKED_CONVERSION(source, destination) 

source Name of a variable from which the copy is made. 

destination Name of a variable to which the copy is made. 

The source and destination fields must have the same length in bits. Neither the source nor 
the destination field can be a pointer or contain a pointer. If either the source or 
destination field is the object of a pointer reference (pointer*), the pointer cannot be a 
pointer to a procedure. 

The destination field must satisfy the same restrictions as the target of an assignment 
statement. This means that the destination field cannot be: 

• A read-only variable. 

• A formal value parameter of the procedure that calls the #UNCHECKED_CONVERSION 
procedure. 

• A bound variant record. r^^ 
The tag field name of a bound variant record. ^ ^ 



'v^y 






o 



c 



USER-DEFINED PROCEDURES 

PROCEDURE DECLARATION 

You define your own procedures with procedure declarations • 

The format used for specifying a procedure is: 

PROCEDURE ! [attributes]} name 1 (formal_parameters)) ; + 

{ declaration_list I 

I statement_list ) 
PROCEND | name! 

attributes -1-1 ' One or more of the following attributes. If more than one are 
specified, they are separated by commas. 

Attribute Meaning 

XREF The procedure has been compiled in a different module. 
In this case, the procedure declaration can contain the 
name and formal parameters, but no declaration list or 
statement list. In the other module, the procedure must 
have been declared with the XDCL attribute and an 
identical parameter list. If omitted, the procedure 
must be defined within the module where it is called. 

XDCL The procedure can be called from outside of the module 
in which it is located. This attribute can be included 
only in a procedure declared at the outermost level of a 
module; it cannot be contained in a program, function, 
or another procedure. Other modules that call this 
procedure must contain the same procedure declaration 
with the XREF attribute specified. 






O 



+ Some variations of CYBIL available on other operating systems allow an additional option, 
the alias name, in a procedure declaration. If included in a CYBIL program run on CDCNET, 
this parameter is ignored. 

++ A variation of CYBIL available on another operating system allows an additional 
attribute , 

the #GATE attribute. CDCNET CYBIL accepts the #GATE attribute, but it is ignored. 
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name 



Attribute 



Meaning 



INLINE Instead of calling the procedure, the compiler 

inserts the actual procedure statements at the point 
in the code where the procedure call is made. 

If no attributes are specified, the procedure is assumed to be in 
the same module in which it is called. 

Name of the procedure. The procedure name is optional following 
PROCEND. 



declarationJLIst 
statement list 



Zero or more declarations. 



Zero or more statements. 






formal_parameters One or more parameters in the form: 

VAR name },name)... : type 
{ , name f , name ) . • . 

and /or: 



type] 



X.^ 



name { , name ] • . . '• type 

|, name (,name)... s type}... 

The first form is called a reference parameter; its value can be 
changed during execution of the procedure. The second form is 
called a value parameter; its value cannot be changed by the 
procedure. Both kinds of parameters can appear in the formal 
parameter list; if so, they are separated by semicolons (for 
example, I:INTEGER; VAR A:CHAR). Reference and value parameters 
are discussed in more detail later in this chapter under 
Parameter List. 
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PARAMETER LIST 

A parameter list is an optional list of variable declarations that appears in the first 
statement of the procedure declaration. In the procedure declaration format shown earlier, 
they are shown as "formal_parameters. " Declarations for formal parameters must appear in 
that first statement; they cannot appear in the declaration list in the body of the procedure. 

A parameter list allows you to pass values from the calling program to the procedure. When a 
call is made to a procedure, parameters called actual parameters are included with the 
procedure name. The values of those actual parameters replace the formal parameters in the 
parameter list. Wherever the formal parameters exist in the statements within the procedure, 
the values of the corresponding actual parameters are substituted. For every formal 
parameter in a procedure declaration, there must be a corresponding actual parameter in the 
procedure call. 

There are two kinds of parameters: reference parameters and value parameters. A reference 
parameter has the form: 

VAR name i.namel... : type 

I, name (,name)..« : type)... 

When a reference parameter is used, the formal parameter represents the corresponding actual 
parameter throughout execution of the procedure. Thus, an assignment to a formal parameter 
changes the variable that was passed as the corresponding actual parameter. An actual 
parameter corresponding to a formal reference parameter must be addressable. A formal 
reference parameter can be any fixed or adaptable type. If the formal parameter is a fixed 
type, the actual parameter must be a variable or substring of an equivalent type. If the 
formal parameter is an adaptable type, the actual parameter must be a variable or substring 
whose type is potentially equivalent. (For further information on potentially equivalent 
types, refer to Equivalent Types in chapter 4.) 

A value parameter has the form: 



name { , name ) . . . : type 

{.name ),name}.«. : type)... 



When a value parameter is used, the formal parameter takes on the value of the corresponding 
actual parameter. However, the procedure cannot change a value parameter by assigning a 
value to it or using it as an actual reference parameter to another procedure or function. A 
formal value parameter can be any fixed or adaptable type except a type that cannot have a 
value assigned, that is, a heap or an array or record that contains a heap. If the formal 
parameter is a fixed type, the actual parameter can be any expression that could be assigned 
to a variable of that type. Strings must be of equal length. If the formal parameter is an 
adaptable type, the current type of the actual parameter must be one to which the formal 
parameter can adapt. If the formal parameter is an adaptable pointer, the actual parameter 
can be any pointer expression that could be assigned to the formal parameter. Both the value 
and the current type of the actual parameter are assigned to the formal parameter. 
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Reference parameters and value parameters can be specified in many combinations. When both 
kinds of parameters appear together, they must be separated by semicolons. Parameters of the 
same type can also be separated by semicolons instead of commas, but in this case, VAR must 
appear with each reference parameter. All of the following parameter lists are valid. 

VAR i, j : integer; a, b : char; 

VAR i : integer; VAR j : integer; a : char; b : char; 

a : char; VAR i, j : integer; b : char; 

VAR i : integer, j : integer; a : char, b : boolean; 

In each of the preceding examples, I and J are reference parameters; A and B are value 
parameters. 

CALLING A PROCEDURE K -S' 

A call to a procedure consists of the procedure name (as given in the procedure declaration) 
and any parameters to be passed to the procedure in the following format: 

name { (actual_parameters) j ; 

name Name of the procedure or a pointer to a procedure. 

actual_parameters One or more expressions or variables to be substituted for formal 

parameters defined in the procedure declaration. If two or more ^ ->__ 
are specified, they are separated by commas. They are '^ j 

substituted one-for-one based on their position within the list; X. 
that is, the first actual parameter replaces the first formal 
parameter, the second actual parameter replaces the second formal 
parameter, and so on. For every formal parameter in a procedure 
declaration, there must be a corresponding actual parameter in 
the procedure call. 

A procedure is a type, like the types described in chapter 3. Procedure types are used for 
declaration of pointers to procedures; there are no procedure variables. 

The lifetime of a formal parameter is the lifetime of the procedure in which it is a part. -f \ 
Storage space for the parameter is allocated when the procedure is entered and released when \_y 
the procedure is left. 

The lifetime of a variable that is allocated using the storage management statements 
(described in chapter 5) is the time between the allocation of storage (with the ALLOCATE 
statement) and the release of storage (with the FREE statement). 

Two procedure types are equivalent if corresponding parameter segments have the same number 
of formal parameters, the same methods of passing parameters (reference or value), and 
equivalent types. 
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Example: 

This example calculates the greatest common divisor X of M and N. M and N are passed as 
value parameters; that is, their values are used but M and N themselves are not changed. X, 
Y, and Z are reference parameters (preceded by the VAR keyword). Their original values have 
no meaning in the procedure; they are assigned new values in the procedure that destroy their 
previous values. 

PROCEDURE gcd (m,n : integer; VAR x, y, z : integer); 

{Extended Euclid's Algorithm I 

VAR al, a2, bl, b2, c, d, q, r : integer; 



o 



al := 0; 




a2 := 1; 




bl :- 1; 




b2 :- 0; 




c := m; 




d := n; 




WHILE d <> 


DO 


al * m + bl * n = d, a2 


gcd (c,d) 


= gcd (m,n) 


q :« c DIV 


d; 


r := c MOD 


d; 


a2 :- a2 - 


q * al; 


b2 :- b2 - 


q * bl; 


c := d; 




d := r; 




r := al; 




al := a2; 




a2 := r; 




r :» bl; 




bl :- b2; 




b2 := r; 





m + b2 * n - 



WHILEND; 

x := c; 

y :» a2; 
z := b2; 

{x = gcd (m,n), y*m+z*n = gcd (m,n)) 
PROCEND gcd; 



c 
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This"chapter describes the declarations, statements, and directives that can be used at 
compilation time to construct the unit to be compiled and to control that process. If a 
compiler command and a directive specify conflicting options, the option encountered most 
recently is used. 

Instructions for compiling a CYBIL program are given in the SES User's Handbook. 

COMPILATION DECLARATIONS AND STATEMENTS 

Many program elements defined in CYBIL have counterparts that can be used to control the 
compilation process. They include variable declarations, expressions, and the assignment and 
IF statements. The IF statement is used to specify certain areas of code to be compiled. 
The IF statement requires the use of expressions, which in turn require variables. 
Assignment statements are used to change the value of variables and, thus, expressions. 

COMPILE-TIME VARIABLES 

Only boolean type variables can be declared. 

The format used to specify a boolean type compile-time variable is: 
? VAR name ( ,name|... : BOOLEAN := expression 



, name {.name)... : BOOLEAN :- expression}... 



">'. 



name Name of the compile-time variable. This name must be unique among 

all other names in the program. 

expression A compile-time expression that specifies the initial value of the 
variable. 

A compile-time declaration must appear before any compile-time variables are used. The scope 
of such a variable extends from the point at which it is declared to the end of the module. 
Compile-time variables can be used only in compile-time expressions and compile-time 
assignment statements. 
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COMPILE-TIME EXPRESSIONS 

Compile-time expressions are composed of operands and operators like CYBIL-def ined 
expressions. An operand can be: 

• Either of the constants TRUE or FALSE. 

• A compile-time variable. 

• Another compile-time expression. 

The operators are NOT, AND, OR, and XOR. Their order of evaluation from highest to lowest is: 

• NOT 

• AND X~ x 

• OR and XOR V-X 
These operators have their normal meanings, as described under Operators in chapter 5. 

COMPILE-TIME ASSIGNMENT STATEMENT 

A compile-time assignment statement assigns a value to a compile-time variable. 
The format of the compile-time assignment statement is: 
? name := expression ?; 

name Name of a compile-time variable. 

expression A compile-time expression. 



o 
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COMPILE-TIME IF STATEMENT 

The compile-time IF statement compiles or skips a certain area of code depending on whether a 
given expression is true or false. 

The format of the compile-time IF statement is: 

? IF expression THEN 

code 
{? ELSE 

code ! 
? IFEND 

expression A boolean compile-time expression. 

code An area of CYBIL code or text. 

When the expression is evaluated as true, the code following the reserved word THEN is 
compiled. When compilation of that code is completed, compilation continues with the first 
statement following IFEND. When the expression is false, compilation continues following the 
ELSE phrase, if it is included, or following IFEND. 

The ELSE clause is optional. If included, the ELSE clause designates an area of code that is 
compiled when the preceding expression is false. 

Example: 

The following example shows the declaration of a compile-time variable named SMALL_SIZE that 
is initialized to the value TRUE. A line of CYBIL code declaring an array named TABLE is 
compiled. Then a compile-time IF statement checks the value of SMALL_SIZE. If it is TRUE, 
the line of CYBIL code calling a procedure named BUBBLESORT is compiled in the program. If 
it is FALSE, the CYBIL line calling procedure QUICKSORT is inserted instead. Because 
SMALL_SIZE was initialized to TRUE, the call to BUBBLESORT is included in the compiled 
program. 

? VAR small_size : boolean :■ TRUE ?; 

VAR table : array [1..50] of integer; 

? IF smalljsize = TRUE THEN 

bubblesort (table); 
? ELSE 

quicksort (table); 
? IFEND 
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• Toggle control (SET, PUSH, POP, and RESET) 

• Layout control (LEFT, RIGHT, EJECT, SPACING, SKIP, NEWTITLE, TITLE, 
and OLDTITLE) 

• Maintenance control (COMPILE and NOCOMPILE) 

• Object code comment control (COMMENT) 

Directives must be bounded by a pair of consecutive question marks. These delimiters are not 
shown in the following formats for individual directives, but they are required around one or 
more directives. 

If a directive differs from an option specified on a compiler command, the latest occurrence 
of either the directive or the command takes precedence. 
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COMPILE-TIME DIRECTIVES 

Compile-time directives allow you to perform the following activities during compilation. 

• Set toggles that turn on or off listing options such as source code listing and 
object code listing (SET, PUSH, POP, and RESET directives when they contain one or 
more of the listing options). 

• Set toggles that turn on or off run-time options such as range checking and array 
subscript checking (SET,- PUSH, POP, and RESET directives when they contain one or 
more of the run-time checking options). 

• Specify the layout of the source text to be used (LEFT and RIGHT margin directives). 

• Specify the layout of the resulting listing (EJECT, SPACING, SKIP, NEWTITLE, TITLE, 

and OLDTITLE directives). ^ ^ 

• Specify what code to compile (COMPILE and NOCOMPILE directives). vV 

• Include comments in the object module (COMMENT directive). 
You can specify one or more directives with the format: 

?? directive (.directive}... ?? 

directive One of the directives discussed in the remainder of this chapter. They 
can be broken down into 'four categories: 



1 
4, 



*rx 
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TOGGLE CONTROL 



Toggle controls can set the values of Individual toggles, save and restore preceding toggle 
values in a last in-first out manner, and reset all toggles to their initial values. 

SET Directive 

The SET directive specifies the setting of one or more toggles. 

The format of the SET directive is: 

SET (toggle_name :- condition 1 , toggle_name :« condition!...) 

toggle_name Name of the toggle being set. Listing toggles are described in table 
8-1. Run-time checking toggles are described in table 8-2. The 
names of toggles can be used freely outside of directives. 

condition ON or OFF. If a toggle is ON, the activity associated with it is 
performed during compilation; if it is OFF, the activity is not 
performed. 

All settings specified in the SET directive are performed together. If the directive list 
contains more than one setting for a single toggle, the rightmost setting in the list is used. 

PUSH Directive 

The PUSH directive specifies the setting of one or more toggles like the SET directive but, 
before the settings are put into effect, a record of the current state of all toggles is 
saved for later use. 

The format of the PUSH directive is: 

PUSH (toggle_name :» condition | , toggle_name :- condition}...) 

toggle name Name of the toggle being set. Listing toggles are described in table 
— 8-1. Run-time checking toggles are described in table 8-2. The 
names of toggles can be used freely outside of directives. 

condition ON or OFF. If a toggle is ON, the activity associated with it is 
performed during compilation; if it is OFF, the activity is not 
performed. 

Settings in the PUSH list are performed in the same manner as a SET list. If the directive 
list contains more than one setting for a single toggle, the rightmost setting in the list is 
used. 

The POP directive, described later in this chapter, restores the original toggle settings in 
a last in-first out manner (that is, the last record to be saved is the first to be restored). 
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Table 8-1 describes the listing toggles and gives their initial settings. 

Table 8-1. Listing Toggles 



O 

o 



Toggle 



LIST 



Initial 
Value 



ON 



LISTOBJ 


OFF 


LISTCTS 


OFF 


LISTEXT 


OFF 


LISTALL 


Not 




applicable 



Description 



Determines whether other listing toggles are read.. When 
ON, a source listing is produced and the other listing 
toggles are used to control other aspects of listing. When 
OFF, no listing is produced; the other listing toggles 
are ignored. 

Controls the listing of generated object code. When ON, 
object code is interspersed with source code following the 
corresponding source code line. 

Controls the listing of the listing toggle directives and 
layout directives. 

When ON, the listing of source statements is controlled by 
a list option on the CYBIL compiler command. 

This option represents all of the listing toggles. When ON, 
all other listing toggles are ON; when OFF, all other 
listing toggles are OFF. 



^J* 
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Table 8-2 describes the run-time checking toggles and gives their initial settings. 

Table 8-2. Run-Time Checking Toggles 



Toggle 


Initial 
Value 


Description 


CHKRNG 
CHKSUB 

CHKNIL 
CHKALL 


ON 
ON 

OFF 

Not 
applicable 


Controls the generation of object code that performs range 
checking of scalar subrange assignments and case variables. 

Controls the generation of object code that checks array 
subscripts (indexes) and substring selections to verify that 
they are valid. 

Controls the generation of object code that checks for a NIL 
value when a reference is made to the object of a pointer. 

This option represents all run-time checking toggles. When 
ON, all other run-time checking toggles are ON; when OFF, 
all other run-time checking toggles are OFF. 



ft \ 
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POP Directive 

The POP directive restores the last toggle settings that were saved by the PUSH directive. 

The format of the POP directive is: 

POP 

If no record was kept (such as the case when a SET directive is performed), the initial 
settings are restored. 

Example: 

This example shows a PUSH directive that temporarily turns off listing. The POP directive 
restores listing. 

?? PUSH (LIST := OFF) ?? 



?? POP ?? 

RESET Directive 

The RESET directive restores the initial toggle settings. 

The format of the RESET directive is: 

RESET 
When the RESET directive is performed, any record of previous settings is destroyed. 

LAYOUT CONTROL 

Layout controls are used to specify the margins of the source text and to control the layout 
of the listing. 
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LEFT and RIGHT Directives 

The LEFT and RIGHT directives specify the column number of the left and right margins of the 
source text, respectively. 

The formats of the LEFT and RIGHT directives are: 

LEFT := integer 

RIGHT := integer 

integer An integer value that represents the column number of the left and right 
margins, respectively. 

The left margin must be greater than zero; that is, 

left margin > 

The right margin must be greater than or equal to the left margin plus 
10, and less than or equal to 110; that is, 

left margin + 10 <» right margin <» 110 

All source text left of the left margin and right of the right margin is ignored. 

If the margin directives are not used, the left margin is assumed to begin in column 1 with 
the right margin in column 79. 

Example: 

This example sets the left margin at column 1 and the right margin at column 110. 
?? LEFT :- 1, RIGHT :» 110 ?? 

EJECT Directive 

The EJECT directive causes the paper to be advanced to the top of the next page. 4 — . 

The format for specifying the EJECT directive is: ^W^ 

EJECT 
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SPACING Directive 

The SPACING directive specifies the number of blank lines between individual lines of the 
listing. 

The format of the SPACING directive is: 

SPACING := spacing 

spacing One of the values 1, 2, or 3 specifying single, double, and triple 
spacing, respectively. 

An undefined value has no effect on spacing, but an error message is issued. 

If the SPACING directive is not used, single spacing (no intervening blank lines) is assumed. 

SKIP Directive 

The SKIP directive specifies that a given number of lines is to be skipped. 

The format of the SKIP directive is: 

SKIP :- lines 

lines Integer value specifying the number of lines to skip. It must be greater 
than or equal to 1. 

If the number of lines specified is larger than the number of lines on the page, or if it 
would cause the paper to skip past the bottom of the current page, the paper is advanced to 
the top of the next page. 
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NEWTITLE Directive 

The NEWTITLE directive specifies a new, additional title to be used on a page while saving 
the current title. 

The format of the NEWTITLE directive is: 

NEWTITLE :» 'characterjstring' 

characterjstring A character string specifying the title to be used. A single 

quote mark is indicated by two consecutive quote marks enclosed 
by quote marks (that is, ""). 

The current title is saved and the given character string becomes the current title. A 
standard page header is always the first title printed on a page, followed by user-defined 
titles in the order in which they were saved. This means that titles are saved and restored 
in a last in-first out order, but they are printed in a first in-first out order. There is 
always a single empty line between the standard page header and any user-defined titles. 
There is always at least one empty line between the last title and the text. 

The maximum number of titles that can be specified is 10. Any attempts to add more titles is 
ignored. 

Titling does not take effect until the top of the next printed page. 

TITLE Directive 

The TITLE directive replaces the current user-defined title with the given character string. 

The format of the TITLE directive is: 

TITLE := 'characterjstring' 

characterjstring A character string specifying the title to be used. A single 

quote mark is indicated by two consecutive quote marks enclosed 
by quote marks (that is, ""). 

If there is no user-defined title currently, the character string becomes the current title. 
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A standard page header is always the first title printed on a page. There is always a single %,,/" 
empty line between the standard page header and any user-defined titles. There is always at 
least one empty line between the last title and the text. 

Titling does not take effect until the top of the next printed page. 
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OLDTITLE Directive 

The OLDTITLE directive restores the last user-defined title that was saved, making it the 
current title. 

The format of the OLDTITLE directive is: 

OLDTITLE 

If there is no saved title, no action occurs. 

MAINTENANCE CONTROL 

COMPILE Directive 

The COMPILE directive causes compilation to occur, or to resume after the occurrence of a 
NOCOMPILE directive. 

The format of the COMPILE directive is: 

COMPILE 

If neither the COMPILE nor NOCOMPILE directive is used, the COMPILE directive is assumed; 
source code is compiled. 

When the CYBIL command includes the Debug parameter with DS specified, debugging statements 
enclosed by the COMPILE and NOCOMPILE directives are compiled. 

NOCOMPILE Directive 

The NOCOMPILE directive causes compilation to stop until the occurrence of a COMPILE 
directive or the end of the module. 

The format of the NOCOMPILE directive is: 

NOCOMPILE 

NOCOMPILE continues listing source code and text according to the listing toggles and layout 
directives, interpreting and obeying directives, but source code is not compiled until a 
COMPILE directive is encountered or a MODEND statement is encountered. 

When the CYBIL command includes the Debug parameter with DS specified, debugging statements 
enclosed by the COMPILE and NOCOMPILE directives are compiled. 
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COMMENT CONTROL 



COMMENT Directive 



The COMMENT directive causes the compiler to include the given character" string in the 
commentary portion of the object module generated by the compilation process. 

The format of the COMMENT directive is: 

COMMENT :- 'character_string' 

character_string A character string up to 40 characters that specifies a 
compile-time comment. 

This directive allows you to include comments in object modules so that the comments appear 
in the load maps. Any number of comments can be included, but only the last comment 



,^X 



encountered appears. V_.y 

Example: 

?? COMMENT := 'Copyright Control Data Corporation 1984' ?? 



V 






8-12 CDCNET CYBIL Revision 01 






> 



> 



GLOSSARY 



c 



^tr^*%. 



%J 

c 



Access Attribute 

Characteristic of a variable that determines whether the variable can be both read and 
written. Specifying the access attribute READ makes the variable a read-only variable. 

Alphabetic Character 

One of the following letters: 

A to Z 

a to z 
See Character and Alphanumeric Character. 

Alphanumeric Character 

Alphabetic character or a digit. See Character, Alphabetic Character, and Digit. 

Assignment Statement 

Statement that assigns a value to a variable. 

Bit 

Binary digit. A bit has the value or 1. See Byte. 

Boolean 

Kind of value that is evaluated as TRUE or FALSE. 

Byte 

Group of bits. For CDCNET CYBIL, one byte is equal to 8 bits. An ASCII character code 
uses the rightmost 7 bits of one byte. 

Byte Offset 

A number corresponding to the number of bytes beyond the beginning of a line, procedure, 
module, or section. 
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Character 

Letter, digit, space, or symbol that is represented by a code in one or more of the 
standard character sets. 

It. is also referred to as a byte when used as a unit of measure to specify block length, 
record length, and so forth. 

A character can be a graphic character or a control character. A graphic character is 
printable; a control character is nonprintable and is used to control an input or output 
operation. 

Character Constant 

Fixed value that represents a single character. 

Comment 

Any character or sequence of characters that is preceded by an opening brace and 
terminated by a closing brace or an end of line. A comment is treated exactly as a space. 

Compilation Time 

Time at which a source program is translated by the compiler to an object program that 
can be loaded and executed. Contrast with Execution Time. 

Compiler 

A processor that accepts source code as input and generates object code as output. 

Delimiter 

Indicator that separates and organizes data. 

Digit 

One of the following characters: 
0123456789 

Entry Point 

Point in a module at which execution of the module can begin. 

Execution Time 

The time at which a compiled source program is executed. Also known as Run Time. 
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Expression 

Notation that represents a value. A constant or variable appearing alone, or 
combinations of constants, variables, and operators. 

External Reference 

Call to an entry point in another module. 

Field 

Subdivision of a record that is referenced by name. For example, the field NORMAL in a 
record named OLD_STATUS is referenced as follows: 

OLD_STATUS . NORMAL 

Integer Constant 

One or more digits and, for hexadecimal integer constants, the following characters: 

ABCDEFabcdef 

A hexadecimal integer constant must begin with a digit. A preceding sign and subsequent 
radix are optional. 

Load Module 

Module reformatted for code sharing and efficient loading. When the user generates an 
object library, each object module in the module list is reformatted and written as a 
load module on the object library. 

Module 

Unit of text accepted as input by the loader, linker, or object library generator. See 
Object Module and Load Module. 

Name 

Combination of from 1 through 31 characters chosen from the following set. 

o Alphabetic characters (A through Z and a through z). 

o Digits (0 through 9). 

o Special characters (#, @, $, and _). 

The first character of a name cannot be a digit. 
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Object Code 

Executable code produced by a compiler. 

Object Module 

Compiler-generated unit containing object code and instructions for loading the object 
code. It is accepted as input by the system loader and the object library generator. 

Pointer 

Virtual address of a value. 

Range 



Statement List 

One or more statements separated by delimiters. 

String Constant 

Sequence of characters delimited by apostrophes (■'). An apostrophe can be included in 
the string by specifying two consecutive apostrophes. 



o 
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Value represented as two values separated by an ellipsis. The element is associated with 
the values from the first value through the second value. The first value must be less 
than the second value. For example: 

value. .value 

Reserved Word 

Word having a predefined meaning in a language. The user cannot define a new meaning or ,/f "\ 
use for a reserved word. ** / 

Run Time 

See Execution Time. 

Source Code 

Statements written for input to a compiler. 
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Variable 

Represents a data value. 

Variable Attribute 

Characteristic of a variable. 
See Access Attribute. 
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CHARACTER SET B 



This appendix lists the ASCII character set. 

CDCNET CYBIL supports the American National Standards Institute (ANSI) standard ASCII 
character set (ANSI X3. 4-1977). CDCNET CYBIL represents each 7-bit ASCII code in an 8-bit 
byte. The 7 bits are right-justified in each byte. For ASCII characters, the leftmost bit 
is always zero. 

In addition to the 128 ASCII characters, CDCNET CYBIL allows use of the leftmost bit in an 
8-bit byte for 256 characters. The use and interpretation of the additional 128 characters 
is user-defined. 
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Table B-l. ASCII Character Set 



ASCII Code 


Graphic or 
Mnemonic 


Name or Meaning 


Decimal 


Hexadecimal 


Octal 


000 
001 
002 
003 


00 
01 
02 
03 


000 
001 
002 
003 


NUL 
SOH 
STX 
ETX 


Null 

Start of heading 
Start of text 
End of text 


004 
005 
006 
007 


04 
05 
06 

07 


004 
005 
006 
007 


EOT 
ENQ 
ACK 
BEL 


End of transmission 

Enquiry 

Acknowledge 

Bell 


008 
009 

010 

on 


08 
09 
0A 
OB 


010 

on 

012 
013 


BS 
HT 
LF 
VT 


Backspace 

Horizontal tabulation 

Line feed 

Vertical tabulation 


012 
013 
014 
015 


OC 
OD 
OE 
OF 


014 
015 
016 
017 


FF 
CR 
SO 
SI 


Form feed 
Carriage return 
Shift out 
Shift in 


016 
017 
018 
019 


10 
11 
12 
13 


020 
021 
022 
023 


DLE 
DC1 
DC2 
DC3 


Data link escape 
Device control 1 
Device control 2 
Device control 3 


020 
021 
022 
023 


14 
15 
16 
17 


024 
025 
026 
027 


DC4 
NAK 
SYN 
ETB 


Device control 4 
Negative acknowledge 
Synchronous idle 
End of transmission block 


024 
025 
026 
027 


18 
19 
1A 
IB 


030 
031 
032 
033 


CAN 

EM 

SUB 

ESC 


Cancel 

End of medium 

Substitute 

Escape 


028 
029 
030 
031 


1C 
ID 
IE 
IF 


034 
035 
036 
037 


FS 
GS 
RS 
US 


File separator 
Group separator 
Record . separator 
Unit separator 


032 
033 
034 
035 


20 
21 
22 

| 23 


040 
041 
042 
043 


SP 
# 


Space 

Exclamation point 
Quotation marks 
Number sign 
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Table B 


-1. ASCII 


Character Set 


(Continued) 


ASCII Code 


Graphic or 
Mnemonic 




Decimal 


Hexadecimal 


Octal 


Name or Meaning 


036 


24 


044 


$ 


Dollar sign 


037 


25 


045 


% 


Percent sign 


038 


26 


046 


& 


Ampersand 


039 


27 


047 


i 


Apostrophe 


040 


28 


050 


( 


Opening parenthesis 


041 


29 


051 


) 


Closing parenthesis 


042 


2A 


052 


* 


Asterisk 


043 


2B 


053 


+ 


Plus 


044 


2C 


054 


9 


Comma 


045 


2D 


055 


- 


Hyphen 


046 


2E 


056 


* 


Period 


047 


2F 


057 


/ 


Slant 


048 


30 


060 





Zero 


049 


31 


061 


1 


One 


050 


32 


062 


2 


Two 


051 


33 


063 


3 


Three 


052 


34 


064 


4 


Four 


053 


35 


065 


5 


Five 


054 


36 


066 


6 


Six 


055 


37 


067 


7 


Seven 


056 


38 


070 


8 


Eight 


057 


39 


071 


9 


Nine 


058 


3A 


072 


: 


Colon 


059 


3B 


073 


t 


Semicolon 


060 


3C 


074 


< 


Less than 


061 


3D 


075 


= 


Equals 


062 


3E 


076 


> 


Greater than 


063 


3F 


077 


1 


Question mark 


064 


40 


100 


e 


Commercial at 


065 


41 


101 


A 


Uppercase A 


066 


42 


102 


B 


Uppercase B 


067 


43 


103 


C 


Uppercase C 


068 


44 


104 


D 


Uppercase D 


069 


45 


105 


E 


Uppercase E 


070 


46 


106 


F 


Uppercase F 


071 


47 


107 


G 


Uppercase G 
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Table B-l. ASCII Character Set (Continued) 



ASCII Code 


Graphic or 
Mnemonic 


Name or Meaning 


Decimal 


Hexadecimal 


Octal 


072 


48 


110 


H 


Uppercase H 


073 


49 


111 


I 


Uppercase I 


074 


4A 


112 


J 


Uppercase J 


075 


4B 


113 


K 


Uppercase K 


076 


4C 


114 


L 


Uppercase L 


077 


4D 


115 


M 


Uppercase M 


078 


4E 


116 


N 


Uppercase N 


079 


4F 


117 





Uppercase 


080 


50 


120 


P 


Uppercase P 


081 


51 


121 


Q 


Uppercase Q 


082 


52 


122 


R 


Uppercase R 


083 


53 


123 


S 


Uppercase S 


084 


54 


124 


T 


Uppercase T 


085 


55 


125 


U 


Uppercase U 


086 


56 


126 


V 


Uppercase V 


087 


57 


127 


W 


Uppercase W 


088 


58 


130 


X 


Uppercase X 


089 


59 


131 


y 


Uppercase Y. 


090 


5A 


132 


z 


Uppercase Z 


091 


5B 


133 


I 


Opening bracket 


092 


5C 


134 


\ 


Reverse slant 


093 


5D 


135 


] 


Closing bracket 


094 


5E 


136 


- 


Circumflex 


095 


5F 


137 


— 


Underline 


096 


60 


140 


\ 


Grave accent 


097 


61 


141 


a 


Lowercase a 


098 


62 


142 


b 


Lowercase b 


099 


63 


143 


c 


Lowercase c 


100 


64 


144 


d 


Lowercase d 


101 


65 


145 


e 


Lowercase e 


102 


66 


146 


f 


Lowercase f 


103 


67 


147 


g 


Lowercase g 


104 


68 


150 


h 


Lowercase h 


105 


69 


151 


i 


Lowercase i 


106 


6A 


152 


J 


Lowercase j 


107 


6B 


153 


k 


Lowercase k 
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ASCII Code 


Graphic or 
Mnemonic 


Name or Meaning 


Decimal 


Hexadecimal 


Octal 


108 


6C 


154 


1 


Lowercase 1 


109 


6D 


155 


m 


Lowercase m 


110 


6E 


156 


u 


Lowercase n 


111 


6F 


157 


o 


Lowercase o 


112 


70 


160 


P 


Lowercase p 


113 


71 


161 


q 


Lowercase q 


114 


72 


162 


r 


Lowercase r 


115 


73 


163 


s 


Lowercase s 


116 


74 


164 


t 


Lowercase t 


117 


75 


165 


u 


Lowercase u 


118 


76 


166 


V 


Lowercase v 


119 


77 


167 


w 


Lowercase w 


120 


78 


170 


X 


Lowercase x 


121 


79 


171 


y 


Lowercase y 


122 


7A 


172 


z 


Lowercase z 


123 


7B 


173 


( 


Opening brace 


124 


7C 


174 


1 


Vertical line 


125 


7D 


175 


) 


Closing brace 


126 


7E 


176 


- /v. 


Tilde 


127 


7F 


177 


DEL 


Delete 
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o 



The following are reserved words in CYBIL. 






ALIAS 


LIST 


STRING 


ALIGNED 


LISTALL 


STRLENGTH 


ALLOCATE 


LISTCTS 


SUCC 


AND 


LISTEXT 


THEN 


ARRAY 


LISTOBJ 


TITLE 


BEGIN 


LOWERBOUND 


TO 


BOOLEAN 


LOWERVALUE 


TRUE 


BOUND 


MOD 


TYPE 


CASE 


MODEND 


UNTIL 


CASEND 


MODULE 


UPPERBOUND 


CAT 


NEWTITLE 


UPPERVALUE 


CELL 


NEXT 


VAR 


CHAR 


NIL 


WHILE 


CHKALL 


NOCOMPILE 


WHILEND 


CHKNIL 


NOT 


WRITE 


CHKRNG 


OF 


XDCL 


CHKSUB 


OFF 


XOR 


CHKTAG 


OLDTITLE 


XREF 


CHR 


ON 


^ADDRESS 


COMMENT 


OR 


#CALLER ID 


COMPILE 


ORD 


^COMPARE SWAP 


CONST 


PACKED 


#CONVERT POINTER TO_PROCEDURE 


CYCLE 


POP 


#FREE RUNNING CLOCK 


DIV 


PRED 


#GATE 


DO 


PROCEDURE 


#HASH SVA 


DOWNTO 


PROCEND 


#INLINE 


EJECT 


PROGRAM 


#KEYPOINT 


ELSE 


PUSH 


#LOC 


ELSEIF 


READ 


#OFFSET 


END 


REAL 


#PREVIOUS SAVE AREA 


EXIT 


RECEND 


#PTR 


FALSE 


RECORD 


#PURGE BUFFER 


FOR 


REL 


#READ REGISTER 


FOREND 


REP 


#REL 


FREE 


REPEAT 


#RING 


FONCEND 


RESET 


#SCAN 


FUNCTION 


RETURN 


#SEGMENT 


HEAP 


RIGHT 


#SIZE 


IF 


SECTION 


^TRANSLATE 


IFEND 


SEQ 


UNCHECKED CONVERSION 


IN 


SET 


#WRITE_REGISTER . 


INLINE 


SKIP 


$CHAR 


INTEGER 


SPACING 


$ INTEGER 


LEFT 


STATIC 


$REAL 
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DATA REPRESENTATION IN MEMORY 



For CDCNET CYBIL on the Motorola MC68000 microprocessor, memory is made up of 8-bit bytes 
with 2 bytes to one 16-bit word, (An 8-bit byte is synonymous with a cell. ) Table D-l 
summarizes how different data types are represented in memory. The alignment column 
indicates how a variable of the data type is stored in packed and unpacked format. The word 
byte means it is stored in the first available byte; bit means it is stored in the first 
available bit. 



o 



o 
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Table D-l. Data Representation in Memory 



Type 


Unpacked 


Packed 


Alignment 


Size 


Alignment 


Size 


Integer 


Word 


Long (2 words) 


Byte 


Long 


Character 


Byte 


Byte 


Bit 


Bits 


Boolean 


Byte 


Byte 


Bit 


Bit 


Ordinal 


Word 


Word 


Bit 


Bits 


Subrange 


Word 


Word/long 


Bit/byte 


Bits/bytes 


Cell 


Byte 


Byte 


Byte 


Byte 


Fixed pointer 


Word 


Words 


Byte 


Words 


Fixed relative 


Word 


Words 


Byte 


Words 


pointer 










String 


Word 


Bytes 


Byte 


Bytes 


Array 


Word 


Bytes 


Byte 


Bytes 


Record 


Word 


Bytes 


Byte 


Bytes 


Set 


Word 


Bytes 


Byte 


Bytes 
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The following examples show how a record would look in memory in various formats: first 
unpacked, then packed, packed with some positioning changes, and finally aligned. 

The unpacked record is: 

TYPE 

table = RECORD 
name : string(7), 
file : (bi, di, lg, pr), 
number_of_accesses : integer, 
users : 0..100, 
ptr_iotype : -iotype, 
b : boolean, 
RECEND; 

This record would appear in memory as follows (slashes indicate unused memory): 
Byte Byte 1 




NAME 



Character 



Character 



Character 



Character 



NUMBER_OF_ 



ACCESSES 



M 



USERS 



PTR_ 



IOTYPE 
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The packed record is: 

TYPE 

table - PACKED RECORD 

name : string(7), 

file : (bi, di, lg, pr), 

number_pf_accesses s integer, 

users : 0..100, 

ptr_iotype : " iotype, 

b : boolean, 
RECEND; 

This record would appear in memory as follows (slashes indicate unused memory): 
Byte Byte 1 



NAME 



Character 



Character 



Character 



Character 



Character 



Character 



Character 



FILE 



w 




NUMBER_OF_ 



ACCESSES 



USERS 




PTR_ 



IOTYPE 



A 
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The record, as follows, is now rearranged slightly to make more efficient use of the space. 

TYPE 

table - PACKED RECORD 

name : strlng(7), 

file : (bi, di, lg, pr), 

number_of_accesses : integer, 

users : 0..100, 

b : boolean, 

ptr_iotype : * iotype, 
RECEND; 

This record would appear in memory as follows (slashes indicate unused memory): 
Byte Byte 1 



NAME 
Character Character 



Character 



Character 



Character 



Character 



Character 



FILE 




NUMBER_OF_ 



ACCESSES 



USERS 



PTR_ 



IOTYPE 



MM 
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The following record declares the pointer field to be aligned at byte zero (the first byte) 
of a word. 

TYPE 

table - PACKED RECORD 
name : string(7), 
file : (bi, di, lg, pr), 
number_of_accesses : integer , 
users : 0..100, 
b : boolean, 

ptr_iotype : ALIGNED * iotype, 
RECEND; 

This record would appear in memory as follows (slashes indicate unused memory): 
Byte Byte 1 



NAME 



Character 



Character 



Character 



Character 



Character 



Character 



Character 



FILE 




NUMBER_OF_ 



ACCESSES 



USERS 




PTR_ 



IOTYPE 
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Access attribute 3-6; A-l 
Actual parameters 

Function 6-11 

Procedure 7-11 

Adaptable array 

Definition 4-36 

Example 5-29 

Format 4-36 

Size 5-28 
Adaptable heap 

Definition 4-38 

Format 4-38 

Size 5-28 
Adaptable pointer size 5-28 
Adaptable record 

Definition 4-37 

Format 4-37 
• Size 5-28 
Adaptable sequence 

Definition 4-38 

Format 4-38 

Size 5-28 
Adaptable string 

Definition 4-35 

Format 4-35 

Size 5-28 
Adaptable types 

Definition 4-35 

Equivalent 4-2 

Example 5-29 
Addition operation 5-5 
Addition operators 5-4 
Advance page directive 8-8 
Alias name 2-9 

ALIGNED parameter 4-24,26,30,37 
Alignment 

Examples D-3 

Of elements in memory D-l , 

Parameter 4-24,26,30,37 
ALLOCATE statement 

Definition 5-32 

Example 5-29 

Format 5-32 
Alphabetic character A-l 
Alphanumeric character A-l 
AND operator 5-3 



Array 

Adaptable 4-36 

Definition 4-20 

Elements 4-21 

Examples 4-22 

Format 4-20 

Initializing elements 4-21 

LOWERBOUND function 6-3 

Referencing elements 4-21 

Size 4-20 

Subscript bounds 4-20 

Two-dimensional 4-22 

UPPERBOUND function 6-7 
ASCII character set B-l 
Assigning 

Elements 4-31 

Strings 4-19 
Assignment operator 5-15 
Assignment, set 4-31 
Assignment statement 

Compile-time 8-2 

Definition 5-14; A-l 
Attribute(s) 

Access 3-6 

Effect on initialization by 3-12 

Function 6-9 

Procedure 7-9 

READ 3-3,6 

Scope 3-7 

Section name 

STATIC 2-8; 

Storage 3-9 

XDCL 2-8; 3-3,7 

XREF 3-3,7 
Automatic variable 2-8; 3-9 



B 



BEGIN statement 

Definition 5-16 
Format 5-16 

Bit A-l 

Blanks in syntax 2-5 

Blocks 2-7 



3-4,10 
3-4,9 
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Boolean 

Constant 2-3 
Definition 4-5; A-l 
Difference 5-5 
Example 4-5 
Format 4-5 

BOUND parameter 4-25 

Bound variant record 
Definition 4-27 
Equivalent 4-2 
Tag field size 5-28 

Byte A-l 

Byte offset A-l 



Calling 

Function 6-12 
Procedure 7-12 
CASE statement 

Definition 5-23 
Examples 5-24 
Format 5-23 
CASEND 5-23 
CAT 2-4 
Cell 

Definition 4-10 
Format of type 4-10 
Pointer to 4-14 
Type 4-10 
$CHAR function 6-1 
Character 

Constant 2-3; A-2 
Definition 4-4; A-2 
Example 4-4 
Format 4-4 
Valid 2-1 
Character set B-l 
CHKALL toggle 8-6 
CHKNIL toggle 8-6 
CHKRNG toggle 8-6 
CHKSUB toggle 8-6 
Comment control directive 
COMMENT directive 8-12 
Comments 2-5; A-2 
Comparing strings 4-19 
Compilation 
Call 8-1 
Declarations 8-1 
Statements 8-1 
Time A-2 



8-12 



o 



COMPILE directive 8-13 
Compile-time 

Assignment statement 8-2 

Directives 8-4 

Expressions 8-2 

IF statement 8-3 

Variables 8-1 
Compiler 

Checking of subranges 4-8 

Definition A-2 
Complement operation 5-11 
Component type 4-15 
Concatenation 2-4 
CONST format 3-1 
Constant 

Boolean 2-3 

Character 2-3 

Declaration 3-1 

Definition 2-3 

Examples 3-2 

Expression 2-4 

Format 3-1 

Integer 2-3 

Ordinal 2-3 

Pointer 2-3 

String 2-4 
Control statements 

CASE 5-23 

CYCLE 5-25 

EXIT 5-26 

IF 5-21 

Overview 5-21 

RETURN 5-26 
Conventions 5 
#CONVERT_P0INTER_TO_PR0CEDURE 

procedure 7-5 
CYBIL control statement 8-1 
CYBIL-defined elements 2-1 
CYBIL reserved words C-l 
CYBIL syntax 2-5 
CYCLE statement 

Definition 5-25 

Example 5-25 

Format 5-25 
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Data declarations 1- 

Data in memory 

Alignment D-l 
Examples D-3 
Size requirements 



D-l 



Index-2 CDCNET CYBIL 



Revision 01 






O 



Compilation 8-1 

Data 1-1 

Overview 1-1 
Delimiter A-2 
Dereference, pointer 4-11 
Digit A-2 
Direct pointer, converting from a 

relative pointer 4-15 
Directives, compile-time 

COMMENT 8-12 

Comment control 8-14 

COMPILE 8-11 

Definition 8-4 

EJECT 8-8 

General format 8-4 

Layout control 8-8 

LEFT 8-8 

Maintenance control 8-11 

NEWTITLE 8-10 
8-11 
8-11 



NOCOMPILE 

OLDTITLE 

POP 8-7 

PUSH 

RESET 

RIGHT 

SET 

SKIP 



8-5 
8-7 
8-8 
8-5 
8-9 

SPACING 8-9 
TITLE 8-10 
Toggle control 
DIV operator 5-3 



8-5 



EJECT directive 8-8 
Elements 

CYBIL-defined 2-1 

Scope of 2-7 

Syntax of 2-5 

User-defined 2-2 
Elements in a program 1-1; 2-1 
ELSE 5-21 
ELSEIF 5-21 

Empty statement 2-6; 5-13 
END 5-16 
Entry point A-2 
Equal to operator 5-6,9 
Equivalent types 4-2 
Error checking of subranges 4-8 
Exclusive OR operation 5-5 



Execution time A-2 
EXIT statement 

Definition 5-26 

Format 5-26 
Expression 

Compile-time 8-2 

Constant 2-4 

Definition 5-1; A-3 

Operands 5-1 

Operators 5-2 
External reference A-3 
Externally declared variable 2-8; 3-3 
Externally referenced variable 3-3 



FALSE 4-5 
Field 4-23; A-3 
F loat ing-point 
FOR statement 

Definition 5-17 

Examples 5-18 

Format . 5-17 
FOREND 5-17 
Formal parameters 

Function 6-10,11 

Procedure 7-10,11 
Format 5 
FREE statement 

Definition 5-33 

Format 5-33 
Functions, see also User-defined functions 

Calling 6-12 



$CHAR 6-1 
Definition 
Format 6-9 



1-2; 6-1 



6-2 



SINTEGER 
#L0C 6-2 
LOWERBOUND 
LOWERVALUE 
Parameters 
PRED 6-4 
#PTR 6-4 
Recursive 
ifREL 6-5 
#SIZE 6-5 
Standard 6-1 
STRLENGTH 6-6 
SUCC 6-6 



6-3 
6-3 
6-10 



6-1 
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UPPERBOUND 6-7 
UPPERVALUE 6-8 
User-defined 6-9 



$INTEGER function 6-2 
Intersection operation 
Invariant record 

Definition 4-23 
Example 4-24 
Format 4-23 



o 



5-11 



Global variable 2-7 

Glossary A-l 

Greater than operator 5-6,9 

Greater than or equal to operator 



H 



5-6,9 



Heap 



Adaptable 4-38 
Definition 4-34 
Example 5-29 
Format 4-34 
Management 5-27 



Identity operation 5-4 
IF statement 

Compile-time 8-3 

Definition 5-21 

Examples 5-22 

Format 5-21 
IFEND 5-21 

Improper subrange type 4-8 
IN operator 5-6,9,12 
Indefinite value constructor 
Initializing 

Array 4-21 

Effect of attribute on 

Record 4-28 

Set 4-31 

Variable 3-11 
Integer 

Constant 2-3; A-3 

Definition 4-3 

Example 4-4 

Format 4-3 

Quotient division 5-3 

Range 4-3 



3-11; 4-21,28,31 



3-12 



Label, statement 5-16,17,19,25 

Language syntax 2-5 

Layout control directives 8-8 

LEFT directive 8-8 

Less than operator 5-6,9 

Less than or equal to operator 5-6,9 

Lifetime of a variable 3-9 

LIST toggle 8-6 

LISTALL toggle 8-^6 

LISTCTS toggle 8-6 

LISTEXT toggle 8-6 

Listing toggles 8-6 

LISTOBJ toggle 8-6 

Load module A-3 

#LOC function 6-2 

Local variable 2-7 

Logical AND operation 5-3 

Logical OR operation 5-5 

LOWERBOUND function 6-3 

Lowerbounds 4-8 

LOWERVALUE function 6-3 



M 



Maintenance control directives 8-11 
Manuals, related 2 
Margins, set 8-8 
Memory 

Alignment of elements D-l 

Cell D-l 

Examples of representation D-3 

Size requirements for elements D-l 
MOD operator 5-3 
MODEND format 2-9 
Module 

Declaration 2-9 

Definition 2-6; A-3 

Examples 2-10 
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Format 2-9 

Level 2-7 

Name 2-9 

Structure 2-6 
MODULE format 2-9 
Multiplication operation 
Multiplication operators 



5-3 
5-2 



Definition 4-6 
Example 4-7 
Format 4-6 
Overview of language 



1-1 












N 



Name 

Definition A-3 

Examples 2-3 

Rules for forming 2-2 
Negation operation 5-11 
Negation operators 5-2 
NEWTITLE directive ' 8-10 
NEXT statement 

Definition 5-31 

Format 5-31 
NIL pointer constant 2-3; 4-12 
N0C0MPILE directive 8-11 
Not equal to operator 5-6,9 
NOT operator 5-2 
Null string 2-4 



Object code 

Definition A-4 
Listing 8-4 

Object module A-4 

Object of a pointer 4-10 

OLDTITLE directive 8-13 

Operands 5-1 

Operators 

Addition 5-4 
Definition 5-2 
Multiplication 5-2 
Negation 5-2 
Order of evaluation 
Relational 5-6 
Set 5-10 
Sign 5-4 

OR operator 5-5 

Ordinal 

Constant 2-3 



5-2 



Packed elements in memory D-l 
PACKED parameter 4-20,23,25,36,37 
Packing parameter 4-20,23,25,36,37 
Page advance directive 8-8 
Parameter list 6-11; 7-1 1 
Parent name 4-15; 6-4,5 
Pointer 

Adaptable types 4-12 

Constant 2-3 

Definition 4-10; A-4 

Dereference 4-11 

Example 4-13 

Format 4-10 

NIL 4-12 

Object 4-10 

Pointer to cell 4-14 

Reference 4-10 

Relative 4-15 
Pointer to cell 4-14 
Pointer-to-procedure conversion 

procedure 7-5 
POP directive 8-7 
Potentially equivalent types 4-2 
PRED function 6-4 
Predecessor of an expression 6-4 
Procedures, see also User-defined 
procedures 7-5,8 

Calling 7-12 

#C0NVERT_POINTER_TO_PROCEDURE 7-5 

Definition 1-2; 7-1 

Format 7-9 

Parameters 7-10 

#SCAN 7-6 

Standard 7-1 

STRINGREP 7-2 

System-dependent 7-5 

^TRANSLATE 7-7 

#UNCHECKED_CONVERSION 7-8 

User-defined 7-9 
PROCEND format 2-12 
Program 

Declaration 2-11 

Elements 2-1 
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Example 2-12 

Execution 8-1 

Format 2-11 

Name 2-11 

Structure 2-6 

Syntax 2-5 
Program elements 1-1 
PROGRAM format 2-11 
#PTR function 4-15; 6-4 
Punctuation 2-6 
PUSH directive 8-5 
PUSH statement 

Definition 5-34 

Example 5-34 

Format 5-34 



R 



Radix 2-3 




Range A-4 




Range checking 


8-6 


READ attribute 


3-3,6 


Read-only 




Section 3 


-10,15 


Variable 


3-3,6 


Record 




Adaptable 


4-37 


Alignment 


4-24,2 



Bound variant 4-25,27 

Definition 4-23 

Examples 4-24,27,28,29 

Fields 4-23 

Format 4-23,25 

Initializing elements 4-28 

Invariant 4-23 

Referencing elements 4-29 

Variant 4-25 
Reference parameters 

Function 6-10,11 

Procedure 7-10,11 
Reference, pointer 4-10 
#REL function 4-15; 6-5 
Related manuals 2 
Relational operators 5-6 
Relative pointer 

Access object of 6-4 

Converting to direct pointer 

Definition 4-15 

Direct pointer 4-15 

Format 4-15 



4-15 



#PTR function 4-15; 6-4 

#REL function 6-5 

Return 6-5 
Remainder division operation 5-3 
REP format 3-11; 4-21 
REPEAT statement 

Definition 5-19 

Example 5-19 

Format 5-19 
Reserved words 2-1; A-4; C-l 
RESET directive 8-7 
RESET statement 

Definition 5-30 

Example 5-29 

Format for a heap 5-30 

Format for a sequence 5-30 
RETURN statement 

Definition 5-26 

Format 5-26 
RIGHT directive 8-8 
Run time A-4 
Run-time 

Checking 8-6 

Stack management 5-27,34 



\,,S 



Scalar types 4-3 
#SCAN procedure 7-6 
Scope attributes 3-7 
Scope of elements 2-7 
Section 

Attribute 3-4,10 
Declaration 3-15 
Definition 3-10,15 
Example 3-15 
Format 3-15 
Name 3-4,10 
SECTION format 3-15 
Semicolon 2-6 
Sequence 

Adaptable 4-38 
Definition 4-33 
Format 4-33 
Management 5-27 
Set 

Complement 5-4 , 1 1 
Containment 5-12 
Difference 5-5,11 
Identity 5-6,9,12 
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Inclusion 5-12 
Inequality 5-6,9,12 
Intersection 5-3,11 
Membership 5-6,9,12 
Negation 5-11 
Operations 5-10 
Subset 5-6,9 
Superset 5-6,9 
Union 5-5,11 
SET directive 8-5 
Set type 

Assigning elements 4-31 
Definition 4-30 
Example 4-32 
Format 4-30 

Initializing elements 4-31 
Set value constructor 
Definition 4-31 
Format 4-31 
Sign inversion 5-4 
Sign operators 5-4 
#SIZE function 6-5 
SKIP directive 8-9 
Source code A-4 
Spaces in syntax 2-5 
Spacing 2-6 
SPACING directive 8-9 
Stack, see run-time stack management 
Standard functions 6-1 
Standard procedures 7-1 
Statement (s) 

ALLOCATE 5-32 

Assignment 5-13 

BEGIN 5-16 

CASE 5-23 

Compilation 8-1 

Control 5-21 

CYCLE 5-25 

Definition 5-13 

Empty 2-6; 5-13 

EXIT 5-26 

FOR 5-17 

FREE 5-33 

IF 5-21 

Label 5-16,17,19,20,25 

List 5-13,16; A-4 

NEXT 5-31 

Overview 1—1 ,2 

PUSH 5-34 

REPEAT 5-19 

RESET 5-30 

RETURN 5-26 

Storage management 5-27 



Structured 5-16 

WHILE 5-20 
STATIC attribute 2-8; 3-4,9 
Static variable 2-8; 3-9 
Storage allocation 2-8 
Storage attributes 3-9 
Storage- management statements 

ALLOCATE 5-32 

Example 5-29 

FREE 5-33 

NEXT 5-31 

Overview 5-27 

PUSH 5-34 

RESET 5-30 
Storage types 4-32 



String 

Adaptable 

Assigning 

Comparing 

Constant 

Definition 

Examples 

Format 4- 



4-35 

4-19 

4-19 
2-4; A-4 

4-16 
4-18,19 
•16 



7-4 
7-3 



7-3 
7-4 
7-4 

7-5 
7-4 

6-6 



Length 6-6 
STRLENGTH function 
Substring 2-4; 4-17 

STRINGREP procedure 
Boolean element 
Character element 
Definition ■ 7-2 
Format 7-2 
Integer element 
Ordinal element 
Pointer element 
String element 
Subrange element 

STRLENGTH function 

Structured statements 
BEGIN 5-16 
FOR 5-17 
Overview 5-16 
REPEAT 5-19 
WHILE 5-20 

Structured types 4-15 

Subrange 

Definition 4-8 
Error checking 4-8 
Example 4-9- 
Format 4-8 

Subscript bounds 

Subset of a set 

Substring 

Definition 



6-6 



4-20 
5-6,9 

4-17 



Examples 4-18 
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Format 4-17 

Of string constant 2-4 
Subtraction operation 5-5 
SUCC function 6-6 

Successor of an expression 6-6 

Superset of a set 5-6,9 

Symmetric difference operation 5-1 1 

Syntax 2-5 

System-dependent procedures 7-5 



Relative pointer 
Scalar 4-3 
Sequence 4-33 
Set 4-30 
Storage 4-32 
String 4-16 
Structured 4-15 
Subrange 4-8 



4-15 
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Tag field 

Definition 4-26 

Size 5-28 
TITLE directive 8-10 
Titles 8-10,13 
Toggle control directives 

Definition 8-5 

Listing toggles 8-6 

Run-time checking toggles 8-6 
^TRANSLATE procedure 7-7 
Translation table . 7-7 
TRUE 4-5 
Type 

Declaration 3-13 

Example 3-14 

Format 3-13 
TYPE format 3-13 
Types 

Adaptable 4-35 

Adaptable array 4-36 

Adaptable heap 4-38 

Adaptable record 4-37 

Adaptable sequence 4-38 

Adaptable string 4-35 

Array 4-20 

Boolean 4-5 

Cell 4-14 

Character 4-4 

Equivalent 4-2 

Formats for using 4-2 

Heap 4-34 

Integer 4-3 

Ordinal 4-6 

Overview 1-1; 4-1 

Pointer 4-10 

Pointer to cell 4-14 

Potentially equivalent 4-2 

Record 4-24 



6-7 



6-8 



#UNCHECKED_C0NVERSI0N procedure 7-8 

Union operation 5-11 

Unpacked elements in memory D-l 

UNTIL 5-19 

UPPERB0UND function 

Upperbounds 4-8 

UPPERVALUE function 

User-defined elements 

Constants 2-3 

Definition 2-2 
User-defined functions 

Actual parameters 6-11 

Attributes 6-9 

Calling 6-12 
. Examples 6-13 

Formal parameters 6-10,11 

Format 6-9 

Parameters 6-10,11 

Reference parameters 6-10,11 

Value parameters 6-10,11 
User-defined procedures 

Actual parameters 7-11,12 

Attributes 7-9 

Calling 7-12 

Examples 7-13 

Formal parameters 7-10,11 

Format 7-9 

Parameters 7-10,11 

Reference parameters 7-10,11 

Value parameters 7-10,11 
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Value constructor, see indefinite value constructor 
Value parameters 

Function 6-10,11 
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